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PREFAZIONE 


Questo libro vuole essere una guida alla conoscenza del 
COMMODORE PLUS-4 e all'apprendimento della programmazione in 
linguaggio BASIC e in linguaggio ASSEMBLER. 

Viene presentata 1'implementazione del BASIC 3.5 disponibile sul 
COMMODORE PLUS-4. Inoltre, e' illustrato il DOS residente sul- 
l'unita' a floppy disk 1541 e viene insegnato l'uso completo del¬ 
la stampante grafica MPS-803. 

Lo studio dell'ASSEMBLER viene sviluppato appoggiandosi alle 
possibilità' offerte dal comando MONITOR del BASIC, e viene 
affrontato anche il problema del linguaggio macchina della CPU 
7501 e della sua struttura hardware. 

Le spiegazioni teoriche sono sempre accompagnate da esempi 
commentati, e per questo il libro può' essere molto utile anche 
ai principianti. 

Particolare attenzione viene dedicata all'uso delle periferiche, 
compresa la gestione dei file su disco. La grafica e' uno degli 
argomenti piu' approfonditi, collegandola alle possibilità’ del 
processore video. . 

Nei primi 3 capitoli si ha una panoramica delle possibilità' del 
COMMODORE PLUS-4 e delle problematiche relative alla program¬ 
mazione, affrontando gli argomenti in modo rigoroso, ma a livel- 

10 elementare. Nei capitoli seguenti gli argomenti vengono appro-> 
fonditi, ma si cerca di rendere le spiegazioni abbastanza sem¬ 
plici. 

11 Capitolo 4 tratta le periferiche tastiera, video, cassetta e 
joystick. Il Capitolo 5 presenta completamente la stampante 
grafica MPS-803 e riporta diversi programmi per ottenere la co¬ 
pia del video testo e del video grafico. Il Capitolo 6 tratta i 
file su disco, riportando tutte le informazioni necessarie per 
usare bene il DOS; inoltre sono presenti programmi commentati per 
gestire archivi di dati di tipo sequenziale, e di tipo random, 
random-user e relativo, anche con indice. Il Capitolo 7 3i sof¬ 
ferma sull'architettura del sistema ponendo l'accento sulla par¬ 
te hardware e mettendo in grado anche gli inesperti di compren¬ 
dere come e' costruito il calcolatore. Il Capitolo 8 tratta del 
linguaggio macchina e dell'uso completo del comando MONITOR. Il 
Capitolo 9 approfondisce l'argomento della grafica, utilizzando 
anche il linguaggio macchina. Nel Capitolo 10 sono presenti alcu¬ 
ni programmi commentati. 


XI 



Completano il volume le appendici, che riportano: la scheda 
completa del BASIC 3-5, le istruzioni ASSEMBLER, i codici e i 
numeri del sistema, i messaggi d'errore, la mappa e l'utilizzo 
della memoria, l'elenco dei registri di I/O, il valore delle 
note, le funzioni matematiche derivate, le conversioni tra i 
sistemi di numerazione, una breve sintesi dei ^ programmi 
residenti in ROM e lo schema elettrico del calcolatore. 

Il libro contiene molti programmi commentati, sia in BASIC che in 
ASSEMBLER, che risultano molto utili, dopo attenta lettura, per 
imparare a programmare. Questi, inoltre, possono essere usati dal 
lettore, sia nella versione presentata, che apportando alcune 
modifiche, o adoperando le routine piu' significative, per il 
proprio lavoro. 
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CAPITOLO 1 


PANORAMICA DEL PLUS - 4 


1.1 INTRODUZIONE 

In questo libro parliamo del COMMODORE PLUS-il; esso e' un calco¬ 
latore della famiglia dei personal, cioè' un calcolatore di mode¬ 
sto costo e dimensioni, ma piuttosto potente. 

Le principali parti componenti il nostro calcolatore sono: 

. unita' centrale, cioè' il calcolatore, 

. unita' di ingresso principale, la tastiera, 

. unita' di uscita principale, il video. 

L'unita' centrale comprende il microprocessore base del calco-’ 
latore, chiamato anche CPU (Central Processing Unit), e tutta 
l'elettronica necessaria al funzionamento delle periferiche, 
tastiera e video. Tra l'altro esso comprende le parti necessarie 
per il collegamento del registratore, periferica esterna per 
l'ingresso e l'uscita dei dati su cassetta magnetica. 

Il calcolatore e le periferiche sono 1'HARDWARE, la parte fisica 
delle apparecchiature. Il calcolatore non funziona se non si 
dispone anche del SOFTWARE, cioè' dei programmi. I programmi, 
registrati su un supporto magnetico come le cassette, si possono 
comprare e si possono preparare da soli, dopo aver imparato. 

Il calcolatore elettronico e' una macchina che funziona eseguen¬ 
do programmi. I divertenti videogiochi sono dei programmi. 

Una parte importante dello hardware del calcolatore e' la 
MEMORIA, cioè' quella parte che permette di conservare programmi 
e dati e quindi di lavorare. 

Nel COMMODORE PLUS-4 una parte di memoria e' stata preventi¬ 
vamente trattata e contiene dei programmi registrati in modo 
indelebile; essa viene chiamata memoria ROM (Read Only Memory). 
Il SOFTWARE residente comprende: 
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.il SISTEMA OPERATIVO, che comprende tutti i programmi neces- 
sari per gestire il calcolatore; 

.l'interprete BASIC, che consente di scrivere ed eseguire pro¬ 
grammi in linguaggio BASIC; 

.un programma di elaborazione testi (word-processor). 

.un programma di gestione dati (data-base). 

.una tabella elettronica (spread-sheet). 

.un programma di visualizzazione grafica. 

La parte di memoria dove puoi scrivere e leggere si chiama RAM. 

Il calcolatore viene quasi sempre collegato ad altre apparec¬ 
chiature; si chiamano INTERFACCE i dispositivi che consentono di 
collegare tra loro componenti diverse. 

Non ci preoccupiamo di descrivere i collegamenti tra il calco¬ 
latore e le sue periferiche standard, dal momento che queste 
informazioni sono contenute nei manualetti allegati alle 
apparecchiature e qui facciamo riferimento al sistema pronto per 
lavorare. 


1.2 LA TASTIERA 

Il tuo COMMODORE PLUS-4 ha una tastiera composta di 67 tasti: 63 
"normali" e 4 "di funzione". I 4 tasti "di funzione" sono in 
realtà' tasti a cui tu puoi assegnare il significato che vuoi (ma 
questo lo vedremo bene nel seguito); i 63 "normali" sono tasti 
che hanno ciascuno un significato, che tu non puoi cambiare, e 
che sono usati principalmente per introdurre nel calcolatore i 
dati relativi ai programmi, ai numeri, ai comandi, ecc. 

Poiché' vi sono nella tastiera 3 tasti SHIFT (2 tasti SHIFT e un 
tasto SHIFT LOCK), e 2 tasti CONTROL, in realta' vi sono 60 
funzioni diverse che sono svolte da 63 tasti. 

TASTI ALFABETICI E NUMERICI 

I tasti della tastiera possono essere divisi in diversi tipi, a 
seconda della funzione che svolgono; i tasti con i numeri, ad 
esempio, li possiamo chiamare "numerici", e quelli con le let¬ 
tere dell'alfabeto, "alfabetici". Possiamo chiamare "alfanu¬ 
merici" l'insieme dei tasti numerici e alfabetici, piu' i segni 
di punteggiatura, spazio, parentesi, #, dollaro, apici, ecc. 

TASTI SHIFT, CBM LOGO e CTRL 

Vi sono dei tasti che da soli non svolgono nessuna funzione, e 
che vanno premuti insieme ad altri, per cambiarne il signi- 
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ficato; essi sono SHIFT, CBM LOGO (il tasto in basso a sinistra, 
sotto RUN/STOP), e CTRL. Possiamo considerare i precedenti come 
"tasti di servizio". 

Il COMMODORE PLUS-*) dispone di 2 SET di caratteri in alternativa 
tra loro, cioè' ne può' essere attivo uno solo per volta. Al 
momento dell'accensione e' attivo il SET MAIUSCOLO/GRAFICO, nel 
quale le lettere compaiono in maiuscolo e si possono ottenere i 
caratteri grafici con l'uso di SHIFT (quelli posti a destra sul 
tasto) e di CBM LOGO (quelli posti a sinistra sul tasto). L'al¬ 
tro SET si chiama MINUSCOLO/MAIUSCOLO; quando esso e' attivo le 
lettere compaiono in minuscolo. Per ottenere le maiuscole si de¬ 
ve usare lo SHIFT, i caratteri grafici che ottenevi con SHIFT 
nell'altro set non sono piu' disponibili, mentre si ottengono con 
il tasto CBM LOGO quelli posti a sinistra sul tasto. 

Premendo insieme CBM LOGO e SHIFT si passa dal set maiusco¬ 
lo/grafico a quello minuscolo/maiuscolo, e viceversa. 

Il tasto CBM LOGO usato insieme ai tasti numerici da 1 a 8, fa 
cambiare il colore del cursore nel colore stampato in basso sul 
tasto premuto. 

Usato con gli altri tasti, CBM LOGO produce gli stessi effetti 
che lo SHIFT. 

Il tasto CBM LOGO ha un'altra importante funzione: usato mentre 
il calcolatore sta stampando sul video, rallenta notevolmente 
l'operazione di SCROLLING, in modo da permettere la lettura del-t 
le scritte che scorrono. 

Il tasto CTRL (control) va premuto, come SHIFT e CBM LOGO, insie-i 
me al tasto con cui si vuole usare. Principalmente con CTRL van¬ 
no premuti i tasti numerici da 1 a 8, per cambiare il colore del 
cursore nel colore stampato in alto sul tasto premuto, o i tasti 
9 e 0, per inserire e disinserire l'effetto REVERSE. CTRL può' 
essere usato anche in unione ai tasti , (virgola) e . (punto) per 
inserire e disinserire l'effetto FLASH. 


Ecco la corrispondenza tasti/colori in italiano: 


Tasto 

con 

CBM LOGO 

con 

CTRL 

1 

ORNG 

=: 

ARANCIONE 

BLK 

- 

NERO 

2 

BRN 

= 

MARRONE 
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BIANCO 

3 
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= 

ROSSO 

4 

PINK 
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ROSA 
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CIANO 

5 

BL GRN 


VERDE-BLU 
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PORPORA 

6 

L BLU 

= 

BLU CHIARO 

GRN 

= 

VERDE 

7 

D BLU 

= 

BLU SCURO 

BLU 


BLU 

8 

L GRN 


VERDE CHIARO 

YEL 

= 

GIALLO 
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TASTI DI CONTROLLO 


Alcuni tasti non stampano un carattere, ma svolgono una parti-- 
colare funzione di controllo del cursore; li possiamo chiamare 
tasti di "controllo". Appartengono a questa categoria i tasti 
RETURN, CLR/HOME, INST/DEL, RUN/STOP, e i tasti che spostano il 
cursore lungo lo schermo (i 4 con le frecce), e ESC. 

TASTO RETURN 

Il tasto RETURN serve per terminare la linea corrente, e memoriz- 
zarla. Se la linea non inizia con un numero, il suo contenuto 
viene subito interpretato come comando BASIC e mandato in esecu-- 
zione. Se invece inizia con un numero, essa viene memorizzata 
nell'area di memoria riservata al programma. Questo tasto può 
essere "pericoloso", in quanto, premuto inavvertitamente, può' 
far entrare nel programma linee indesiderate, o cancellare linee 
che già' esistono; e' quindi buona norma non premere RETURN in 
continuazione, sopra uno schermo pieno di scritte, ma conviene 
piuttosto usare i tasti di movimento cursore e scendere dove lo 
schermo e' pulito. Se non vuoi che la linea corrente venga 
interpretata, puoi premere SHIFT-RETURN; questa operazione ti 
permette di terminare la linea corrente senza ne* memorizzarla, 
ne' mandarla in esecuzione: essa resta sul video. 

TASTO CLEAR/HOME 

Il tasto CLEAR/HOME ha due significati; usato da solo porta il 
cursore alla posizione HOME, cioè' nell'angolo in alto a sini-> 
stra, usato insieme allo SHIFT cancella tutto lo schermo, e por¬ 
ta il cursore nell'angolo in alto a sinistra. 

TASTO INST/DEL 

Il tasto INST/DEL, come il tasto CLEAR/HOME, ha due significati. 
Usato da solo svolge la funzione DELETE, cioè' cancella il carat-) 
tere a sinistra del cursore, spostando a sinistra tutti gli even¬ 
tuali caratteri presenti, sulla stessa linea, a destra del curso¬ 
re. Usato insieme allo SHIFT invece significa INSERT, e inse-> 
risce uno spazio tra il carattere che precede il cursore e quel¬ 
lo sotto il cursore. Ovviamente i caratteri che si trovano a 
destra del cursore sono automaticamente spostati a destra, per 
fare posto allo spazio appena inserito. Per tutti gli spazi inse-i 
riti viene automaticamente attivato il modo "INSERT", che ti 
permette di inserire caratteri di controllo senza mandarli subi¬ 
to in esecuzione (vedi Paragrafo 1.3) 

TASTI DI MOVIMENTO CURSORE 

Sono i tasti che si trovano in basso a destra sulla tastiera. La 
loro funzione e' quella di spostare il cursore lungo lo schermo, 
senza cancellare quello che vi si trova sotto. L'EDITOR del 
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COMMODORE PLUS -1 ) (programma del sistema che facilita il collo¬ 
quio video/tastiera) e' molto potente, e ti permette di correg¬ 
gere le linee semplicemente passandovi sopra con il cursore, 
effettuando le correzioni, e premendo RETURN alla fine. 

TASTO RUN/STOP 

Questo tasto ha tre diverse funzioni: 

. Premuto da solo, durante l'esecuzione dì un programma, lo arre-> 
sta, e fa si' che venga emesso il messaggio BREAK IN ... (numero 
linea dell'arresto). Il programma può' riprendere con l'istru¬ 
zione CONT (continua). Se dopo l'arresto del programma e' stata 
introdotta qualche nuova linea, o eseguita un'istruzione CLR, 
allora la ripresa del programma e' impossibile, e viene emesso il 
messaggio CAN'T CONTINUE. 

. Premuto insieme a SHIFT fa si' che venga caricato il primo 
programma da disco, e vada in esecuzione automaticamente. 

. Premuto insieme a RESET arresta il programma e fa entrare in 
MONITOR (vedi Paragrafo 8.6). 

TASTO ESC (ESCAPE) 

Per ultimo descriviamo il tasto ESC (escape). Svolge delle 
funzioni molto potenti, e può' tornare utile imparare almeno 
quelle piu' importanti, per risparmiare tempo in fase di scrit¬ 
tura programmi. ’ - 

A differenza di SHIFT, CBM LOGO, e CTRL, questo tasto non deve 
essere premuto insieme al tasto con cui va usato, ma va premuto 
prima. Ecco la lista dei tasti che possono essere premuti dopo 
ESC, e l'effetto che producono: 

A: Inserimento automatico; quando si scrive su una riga, il 

carattere che si trova sotto il cursore viene spostato a destra, 
anziché' essere cancellato. 

C: Cancella inserimento automatico. 

D: Cancella tutta la linea dove si trova il cursore. 

I: Inserisce una linea. 

J: Porta il cursore all'inizio della linea corrente. 

K: Porta il cursore alla fine della linea corrente. 

L: Abilita lo "scrolling", movimento automatico delle scritte 

verso l'alto, per liberare l'ultima linea in basso. 

M: Disabilita lo "scrolling". 

N: Riporta lo schermo a 25 righe, 40 colonne. 

0: Cancella il modo QUOTE e INSERT. Nel modo QUOTE si entra dopo 

aver aperto le virgolette; come si entra nel modo INSERT e' già' 

stato spiegato. In questi modi i caratteri di controllo cursore e 
colore sono stampati come caratteri in campo inverso, anziché' 
produrre subito il loro effetto. ESC 0 cancella l'effetto FLASH e 
REVERSE (vedi Paragrafo 1.3). 

P: Cancella la linea corrente dall'inizio al cursore. 

Q: Cancella la lìnea corrente dal cursore alla fine. 
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R: Riduce lo schermo a 23 righe, 38 colonne. Può' servire per 
quei televisori che non riescono a visualizzare tutta la gran¬ 
dezza dello schermo. 

T: Posiziona l'angolo sinistro in alto della finestra video (ve-» 
di Paragrafo 3-5). 

B: Posiziona l'angolo in basso a destra per la finestra video 
(vedi Paragrafo 3.5). 

V: Fa scorrere le scritte dello schermo (serolling) di una riga 
verso l'alto. 

W: Fa scorrere le scritte dello schermo di una riga verso il bas-» 
so. 

X: Non produce alcun effetto; premi X se hai premuto ESC inavver-> 
titamente, e non vuoi eseguire nessuna delle funzioni di ESCAPE. 
E' possibile ottenere le funzioni di escape anche da programma, 
mediante l'istruzione PRINT CHR$(27). Ad esempio, per ottenere 
l'inserimento automatico: 

PRINT CHR$(27)"A". 


TASTI DI FUNZIONE 

Hai notato sicuramente i 4 tasti in alto, con le scritte fi, f2, 
... H, HELP. 

Questi tasti sono molto comodi, poiché' ad essi può' essere asse-» 
gnato il significato che vuoi. Per sapere quale significato han-» 
no ora questi tasti, puoi digitare l'istruzione: 

KEY 

e premere RETURN. 

Il calcolatore scriverà' sul video I significati attuali dei 
tasti funzione. 

Se invece vuoi assegnare al tasto fi una determinata funzione, 
puoi digitare: 

KEY 1,"COMMODORE PLUS-4" 
e poi premere RETURN. 

In questo modo, quando premi fi appare sul video la scritta 
COMMODORE PLUS-4. Ovviamente, per far tornare i tasti alle loro 
funzioni originali, puoi assegnare nuovamente a ciascun tasto la 
funzione precedente, o premere il tasto di RESET, che si trova 
vicino all'interruttore di alimentazione. 

TASTO RESET 

Il tasto RESET e' l'unico che non si trova sulla tastiera; esso 
infatti e' situato vicino all'interruttore di alimentazione, sul 
lato destro del tuo COMMODORE PLUS-**). Premere questo tasto 
assomiglia un po' a spegnere e riaccendere il calcolatore, ma con 
alcune differenze: 

. Il contenuto della memoria utente non viene alterato, anche se 
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i puntatori del BASIC vengono riportati nella condizione inizia¬ 
le. 

. Tenendo premuto RUN/STOP e premendo RESET si arresta il 
programma corrente, anche se una imprudente routine di TRAP (ve¬ 
di Paragrafo 3.8) lo impedisce normalmente. Questa operazione ti 
porta in MONITOR; per tornare al BASIC basta premere X e RETURN. 
Il programma e' ancora perfettamente in memoria, e anche il valo^ 
re delle variabili e' conservato. 

. Fai attenzione a non premere RUN/STOP mentre stai accendendo il 
calcolatore, altrimenti entri in MONITOR, ma uscendo da esso, con 
X, il BASIC non e' in grado di funzionare, poiché' in questo mo-. 
do e' stata saltata la routine di inizialìzzazione del BASIC. 


1.3 EDITOR 

Viene chiamato EDITOR quella parte di SISTEMA OPERATIVO che prova 
vede a gestire il colloquio tra la tastiera e il video. L'EDITOR 
del tuo COMMODORE PLUS- 1 ! ha delle particolarita' che e' bene meta 
tere a fuoco. 

Innanzi tutto e* un EDITOR FULL SCREEN. Questo vuol dire che 
quando premi RETURN viene considerata valida tutta la linea dove 
si trova il cursore dal precedente RETURN all'attuale RETURN, e 
non solo i caratteri premuti ex novo. Questa particolarita' aiu¬ 
ta molto durante la fase di correzione dei programmi: non occora 
re digitare tutta 'la linea sbagliata, ma basta correggere solo 
dove necessario, e premere RETURN. 

Inoltre accetta delle linee lunghe fino a 88 caratteri, poiché’ 
considera linee logiche anziché' linee fisiche. Il fatto che 
linee piu' lunghe di 88 caratteri diano il messaggio STRING T00 
LONG e' dovuto alla dimensione limitata della zona di memoria 
dedicata ad accettare i caratteri in ingresso dalla tastiera, e 
non a limiti imposti dall'EDITOR. 

LINEE LOGICHE E LINEE FISICHE 

Sul video del tuo televisore, appena accendi il calcolatore, 
appare uno schermo dove puoi scrivere dei caratteri, digitandoli 
dalla tastiera. Se conti i caratteri che puoi porre su una riga, 
vedi che sono MO; se poi conti quante righe e' possibile scria 
vere sullo schermo, vedi che sono 25. 

Le righe che abbiamo appena contato, le chiamiamo LINEE FISICHE; 
esse infatti sono fisicamente 25, e il loro numero non può' 
variare, ne' la loro lunghezza può' superare i MO caratteri. 
Abbiamo accennato che il calcolatore accetta in ingresso linee 
fino a un massimo di 88 caratteri. E' lecito domandarsi come sia 
possibile creare una linea di 88 caratteri su uno schermo che 
possiede solamente MO colonne. La spiegazione e’ che le linee in 
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questione non sono linee fisiche (tali linee infatti contengono 
sempre 40 caratteri, di cui alcuni eventualmente sono spazi bian¬ 
chi), ma LINEE LOGICHE. Il concetto di linea logica e' molto 
semplice; una LINEA LOGICA e' un insieme di una o piu' linee 
fisiche. Una linea logica inizia dopo la pressione del tasto 
RETURN, e continua finche' non si preme nuovamente RETURN, a pat¬ 
to di non usare i tasti di controllo del cursore e CLEAR/HOME. Se 
viene premuto un tasto dopo il quarantesimo della linea corren¬ 
te, l'EDITOR porta il cursore nella nuova linea, e "collega" la 
nuova linea a quella precedente. Lo stesso avviene dopo l'ottan¬ 
tesimo carattere. Esiste nell’area di memoria riservata al 
SISTEMA OPERATIVO una "mappa", che tiene conto delle linee fisi¬ 
che che sono l'inizio di una linea logica, e di quelle che inve¬ 
ce sono il proseguimento della linea logica precedente. 

I "MODI" DELL'EDITOR : "QUOTE" E "INSERT" 

Se hai già' avuto modo di scrivere qualche programma sul 
COMMODORE PLUS-4, hai notato probabilmente che accade qualcosa di 
strano quando premi i tasti SHIFT-2 (cioè' apri le virgolette); 
alcuni dei caratteri di controllo vengono stampati in maniera 
strana, anziché' essere immediatamente eseguiti. Avviene che 
l'EDITOR entra nel modo QUOTE (modo virgolette). Quando l'EDITOR 
si trova in tale stato, i caratteri di controllo, escluso RETURN, 
vengono stampati come particolari caratteri in campo inverso, 
dentro le virgolette. Questi caratteri di controllo verranno 
eseguiti quando la STRINGA (insieme di caratteri) sara' stam¬ 
pata. Come esempio digita: 

A$="SHIFT-CLEAR/HOME" 
e premi RETURN. 

Il tasto SHIFT-CLEAR/HOME appare come un cuoricino in campo 
inverso. Digita poi: 

PRINT A$ 
e premi RETURN. 

Vedi che tutto lo schermo e' stato cancellato, e il cursore si 
trova nell'angolo in alto a sinistra. E' stato "stampato" il 
carattere di controllo CLEAR (cancella lo schermo) e lo schermo 
e' stato cancellato. L'utilità' dell'uso dei caratteri di 
controllo all'interno di stringhe da stampare e' evidente. Puoi 
controllare da programma la posizione del cursore, ed eseguire i 
caratteri di controllo come FLASH 0N/0FF, REVERSE 0N/0FF, i 
caratteri per cambiare il colore del cursore, ecc. 

Per uscire dal modo QUOTE esistono diversi modi: 

. Premere RETURN e terminare la linea. 

. Premere SHIFT-RETURN e portare il cursore alla nuova linea, 
senza introdurre la linea corrente. 

. Chiudere le virgolette. 
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. Premere ESC 0 (non zero, ma 0 come Otranto. Vedi Paragrafo 

1 . 2 ). 

Il modo INSERT (modo inserimento) e' fondamentalmente identico al 
QUOTE, ma diverso e' il modo di entrarvi; si entra in INSERT 
premendo i tasti SHIFT-INST/DEL, e vi si rimane finche' non si 
sono premuti tanti tasti quanti erano gli spazi inseriti. Ovvia¬ 
mente si può' uscire dal modo INSERT anche nei modi con cui si 
esce dal modo QUOTE (escluso chiudere le virgolette). 

I .il IL VIDEO 

II video e' il piu' immediato dispositivo di output, cioè' di 
uscita; esso può' visualizzare 1000 caratteri: 25 righe di 40 
caratteri ciascuna. Nel COMMODORE PLUS-4 esistono due insiemi di 
caratteri raggruppati nel SET MAIUSCOLO/GRAFICO e nel SET 
MINUSC0L0/MAIUSC0L0. Per passare da un SET all'altro devi pre- 
mere contemporaneamente i tasti CBM LOGO e SHIFT. Esistono comun-> 
que 3 tipi di caratteri: 

a) numerici 

b) alfabetici 

c) grafici. 

11L RISULTATO E' -234) 

t-NUMERICI 

- ALFABETICI 

- GRAFICI 

Figura 1.1 Tipi di carattere 


I caratteri di tipo grafico possono essere usati per abbellire o 
rendere piu' leggibili le stampe dei risultati delle elabo¬ 
razioni del tuo COMMODORE PLUS-4 o per cominciare a creare qual¬ 
che semplice giochino o animazione (come vedrai piu' avanti). 
Quando accendi il calcolatore, sul video vedi uno SCHERMO bian-i 
co, attorniato da un BORDO azzurro, delle scritte nere (del set 
MAIUSCOLO/GRAFICO) e, poco piu' sotto le scritte, un quadratino 
nero che lampeggia: il CURSORE. Il cursore indica il punto in cui 
verrà' scritto il prossimo carattere e può' essere spostato gra¬ 
zie ai quattro tasti di movimento del cursore in basso a destra 
sulla tastiera e a forma di freccia. Se sposti il cursore su del¬ 
le scritte già' esistenti, queste non verranno cancellate, ma il 
cursore segnalerà' la sua presenza alternando, in quella posizio-i 
ne, il carattere stesso e il corrispondente carattere in campo 
inverso. 
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I COLORI E GLI EFFETTI SPECIALI 


Il COMMODORE PLUS-’ 1 ) e' un calcolatore che ha la possibilità' di 
visualizzare a colori: puoi scegliere i colori che preferisci per 
il bordo, lo sfondo e le scritte. Il modo piu' semplice per 
cambiare il colore del cursore, e quindi di tutti i caratteri che 
scriverai da quel momento in poi, e' quello di premere insieme i 
tasti CTRL e un tasto da 1 a 8 o CBM LOGO e un tasto da 1 a 8. 
Nel primo caso il cursore diventerà' del colore scritto, in 
inglese, in alto, sulla parte frontale del tasto numerico premu¬ 
to; nel secondo caso del colore scritto in basso. Premendo CTRL 
e tutti i caratteri, da quel momento in poi, vengono scritti 
lampeggianti (hai attivato FLASH ON); questo effetto dura fino a 
che non viene premuto RETURN o CTRL e (FLASH OFF). 

Premendo CTRL e 9 (che attiva RVS ON), invece, i caratteri 
verranno scritti in campo inverso fino a che non premi RETURN o 
CTRL e 0 (RVS OFF). 

Scegliendo il colore del cursore con i tasti CTRL e CBM LOGO puoi 
scegliere tra 16 colori, ma i colori del COMMODORE PLUS’' 1 ) sono di 
piu’: ben 121 ! 

Come fare, quindi, per scegliere tra tutti questi colori? Devi 
usare il comando COLOR del BASIC. 

Se tu scrivi, su una linea dove non esistono altre scritte: 

COLOR 1,7,6 

e quindi premi RETURN, il calcolatore ti risponde "READY." in 
blu. 

Il primo numero, che segue il comando COLOR, indica quale colore 
e' da cambiare: 

0 cambia il colore dello schermo 

1 cambia il colore del cursore . 

2 cambia il colore multicolore 2 (vedi Paragrafo 2.8) 

3 cambia il colore multicolore 3 (vedi Paragrafo 2.8) 

4 cambia il colore del bordo 

nel nostro caso il primo numero e' 1, quindi e' stato cambiato il 
colore del cursore (e la scritta "READY." e' stata scritta col 
nuovo colore). 

Il secondo numero indica il colore scelto: 


1 

nero 

9 

arancione 

2 

bianco 

10 

marrone 

3 

rosso 

11 

giallonverde 

4 

ciano 

12 

rosa 

5 

porpora 

13 

verde->blu 

6 

verde 

14 

blu chiaro 

7 

blu 

15 

blu scuro 

8 

giallo 

16 

verde chiaro 
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nel nostro caso il secondo numero e' 7, quindi il colore scelto 
e' il blu. 

L'ultimo numero indica la luminosità' del colore. Puoi scegliere 
un numero tra 0 (scurissimo) e 7 (chiarissimo); nel nostro esem¬ 
pio abbiamo scelto 6 cioè' molto chiaro. 

Nota che il colore blu e il colore blu chiaro o il verde e il 
verde chiaro, anche se usati con la stessa luminosità', non sono 
identici. I colori disponibili sono quindi 15 (dal 2 al 16) X 8 
(le luminosità') piu' il nero (per il quale non valgono le 
luminosità'); in tutto dunque 121! 

1.5 IL COMMODORE PLUS-4 COME CALCOLATRICE 

Puoi usare il tuo COMMODORE PLUS-4 per eseguire calcoli anche 
complicati. 

Quando usi il calcolatore in questo modo, ti servi del linguag¬ 
gio BASIC in modo IMMEDIATO, cioè' scrivi una istruzione e la 
esegui quando premi il tasto RETURN. Le istruzioni che puoi usare 
sono: 

. PRINT, che può' essere scritta anche come ?, cioè' il calco¬ 
latore interpreta il ? come se tu avessi scritto la parola PRINT; 
questa istruzione fa scrivere sul video quello che segue, se 
segue un'espressione, viene scritto il risultato del calcolo. 

. ISTRUZIONE DI ASSEGNAZIONE, che si scrive: 
nome-variabile=espressione. 

Essa assegna alla variabile il valore dell'espressione; se la 
variabile non esiste già' viene creata. Il valore assegnato alla 
variabile rimane immutato fino a quando si esegue un'altra istru¬ 
zione di assegnazione usando lo stesso nome, oppure si impar¬ 
tisce una istruzione che azzera tutte le variabili (come CLR). 
Dopo aver assegnato un valore ad una variabile questa può' esse¬ 
re utilizzata in qualunque espressione. 


Puoi provare a scrivere: 

PRINT 123*2-18*7 

dopo la pressione del tasto RETURN vedi il risultato sulla linea 
seguente; oppure scrivi: 

? 15*12-134*5 

in questo caso il risultato e' preceduto dal segno meno, infatti 
esso e' negativo. Nel primo calcolo il risultato positivo e' 
preceduto da uno spazio. 

Le ESPRESSIONI sono formate da costanti (numeri), da variabili, 
da funzioni, da parentesi rotonde e da operatori aritmetici. Es¬ 
se devono essere scritte utilizzando le regole della matema¬ 
tica. 
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Gli OPERATORI ARITMETICI sono: 

elevamento a potenza -» segno 

* moltiplicazione / divisione 

+ addizione -» sottrazione. 

Gli elementi costanti, variabili e funzioni, devono essere colle-» 
gati tra loro mediante gli operatori aritmetici e le parentesi 
rotonde. 

Non si possono avere due operatori aritmetici vicini, salvo nel 
caso del segno -». Si può' scrivere: 6*-»8 

ma questo risulta poco chiaro, per cui e' meglio scrivere: 

6 *(- 8 ). 

Non si può' scrivere 6*/8, perche' non ha senso usare i due 
operatori * e / vicini. 

I numeri non interi si scrivono usando il punto decimale al posto 
della virgola. 

Le VARIABILI sono dei CONTENITORI di dati; ad esse vengono asse-i 
gnati dei NOMI secondo regole precise. 

II nome di una variabile può’ essere formato da due caratteri, 
dei quali il primo deve essere una lettera e il secondo può' 
essere una lettera o una cifra numerica e può' anche mancare. 
Prova a scrivere: 

PRINT 08*(15-»3) )"2 

vedrai il risultato: 435673.001 

Il calcolatore ha eseguito i calcoli cosi': 

15-3=12 18*12=216 

216^2=46656.0001 

l'ultimo calcolo e' strano: il piccolo errore e' dovuto al fatto 
che il calcolatore, nell'eseguire alcune operazioni, come 
l'elevamento a potenza, deve eseguire molti calcoli intermedi 
approssimandone i risultati. 

Prova ora a scrivere: 

A=15*8 

PRINT 1245=A 

ottieni come risultato 1125, infatti la variabile A contiene 120 
(15*8) dato che tale valore le e' stato assegnato prima di usar-» 
la nell'espressione di calcolo. 

Negli esempi di calcolo abbiamo parlato di numeri in generale; in 
realta' il COMMODORE PLUS^4 può' trattare due tipi di numeri: 

. i NUMERI INTERI, 

. i NUMERI REALI (quelli non interi). 

Per distinguere il nome di una variabile che può' contenere solo 
numeri interi da quello di una variabile che può' contenere nume-: 
ri reali, si fa seguire al nome il suffisso %. La variabile k% 
contiene un numero intero, si chiama anche variabile intera. La 
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variabile A contiene un numero reale, si chiama anche variabile 
reale. 

Se in una operazione di assegnazione a sinistra dell'uguale coni" 
pare una variabile intera, il risultato dell'espressione viene 
reso intero prima di assegnarlo alla variabile. Per esempio: 
B?=3.5, assegna a il valore intero 3. 

I numeri interi purtroppo sono molto limitati in grandezza, cioè' 
una variabile intera può' contenere un numero compreso tra -32768 
e +32767. Se si cerca di assegnarle un numero fuori da questo 
intervallo, esso viene troncato perdendo il suo valore e ovvia¬ 
mente i risultati dei calcoli sono errati. 

Nel calcolatore viene usata una rappresentazione approssimata per 
i numeri reali (cioè* con un numero limitato di cifre decimali 
dopo il punto decimale). 

Nel COMMODORE PLUS-4 i numeri reali sono conservati con circa 10 
cifre significative; il valore varia tra -4294967304 e 
+4294967304. 

Essi possono essere rappresentati in uscita in due modi: 

. in VIRGOLA FISSA, 

. in VIRGOLA MOBILE (FL0ATING-P0INT) o FORMA ESPONENZIALE. 

II COMMODORE PLUS-4 decide di evidenziare un numero in uno dei 
due formati in base al numero delle cifre significative presen¬ 
ti. Fino a 9 cifre, ed escludendo un piccolo intervallo intorno 
allo zero (precisamente i numeri X che risultano: -=0.01 <X<0 oppu-> 
re 0<X<0.01), il numero viene evidenziato in virgola fissa; gli 
altri numeri vengono evidenziati in virgola mobile. Nella Figura 
1.2 sono indicati gli intervalli validi per le due rappresen-i 
tazioni. 


- 999999999.5 

- ■ 


-e.01 a 


0.01 999999999.5 

-1 - I- 


= VIRGOLA FISSA 
= VIRGOLA MOBILE 

Figura 1.2 Intervalli rappresentazione numeri 


Il ricorso alla rappresentazione in virgola mobile consente di 
limitare il numero di caratteri. 

Infatti se possiamo scrivere un numero in una casella di un 
foglio di carta formata da 20 caselline, ognuna capace di 
registrare una cifra, non possiamo scrivere piu' di 20 cifre. In 
tale caso un numero come: 

0.0000000000000012345678912345678 non sappiamo come scriverlo; 
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infatti se scriviamo le prime 20 cifre abbiamo una buona 
approssimazione sulla grandezza del numero, ma perdiamo un bel 
gruppo di cifre significative, mentre se scriviamo le ultime 20 
cifre cambiamo completamente la natura del numero, che diventa 
grande. 

Analogamente un numero come: 

1234567891234567890000000000, scritto in 20 cifre cambia compiei 
tamente ordine di grandezza. 

Se decidiamo di usare le 20 caselline a disposizione in questo 
modo: 

. le prime 3 per il segno e l’esponente da dare a 10 per rappre- 1 
sentare l'ordine di grandezza del numero (+xx o ->xx); arriviamo a 
ordini di grandezza da 10 elevato a ->99 (piccolissimo) a 10 eie-» 
vato a +99 (molto grande), 

. le altre 17 per il segno e le cifre significative del numero, 
per ottenere il valore del numero moltiplichiamo le 17 cifre 
conservate (16 piu' il segno) per l’opportuna potenza di 10 
(lO^esponente). In questo caso conserviamo l’ordine di grandezza 
del numero e il maggior numero possibile di cifre significative. 
Inoltre e' inutile visualizzare gli zeri a sinistra o a destra in 
quanto ne può' tener conto l'esponente. 

Da quanto detto viene giustificata la terminologia "in virgola 
mobile"; infatti la virgola viene spostata dopo la prima cifra 
significativa del numero, come se tutti i numeri fossero del 
tipo: x.xx...x; viene tenuto conto degli spostamenti della vir- 
gola (che e' il punto decimale) nell'esponente. 

Per i due numeri visti sopra: 

0.0000000000000012345678912345678 
prendendo solo 17 cifre significative: 

+ 1.2345678912345678 * 1 0“-ì15 

1234567891234567890000000000 
prendendo solo 17 cifre: 

+1.2345678912345678 * 10~+27 

Il COMMODORE PLUS->4 fa proprio un lavoro di questo tipo per con¬ 
servare i numeri reali nella sua memoria, cioè' li conserva semi 
pre in virgola mobile. 

Il numero di cifre consentite e' diverso da quello citato nell'ei 
sempio, e, inoltre, il calcolatore lavora al suo interno con 
l'aritmetica binaria. Nell'aritmetica binaria sono usate solo due 
cifre, 0 e 1, e il valore posizionale delle cifre viene calco-" 
lato in base alle potenze di 2. Tu non hai bisogno di occuparti 
dell'aritmetica binaria, infatti il COMMODORE PLUS+-4 comunica con 
l'esterno con la normale aritmetica decimale. 
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In uscita il COMMODORE PLUS- 1 ) ci mostra i numeri reali in vir¬ 
gola fissa se hanno fino a 9 cifre (escludendo gli intervalli 
intorno allo zero sopra citati) e in virgola mobile negli altri 
casi. Per rendere evidente quest’ultimo tipo di rappresentazione 
il numero viene mostrato nella forma: 

X.XX...XE+YY X.XX.. .XE->YY 

■"X.XX. . .XE+YY ->X.XX.. .XE-YY 

e il valore di YY può' essere al massimo 38, mentre le cifre X..- 
.X possono essere al massimo 9. 

Le FUNZIONI corrispondono a un insieme di operazioni che vengono 
eseguite citando il nome dalla funzione seguito tra parentesi 
dall'ARGOMENTO da usare nel calcolo. L'argomento può' essere una 
costante, una variabile o una espressione, purché' il valore sia 
tale da non contraddire la logica della funzione, tipo estra^ 
zione della radice quadrata di un numero negativo. 

Le OPERAZIONI ARITMETICHE si ottengono usando gli operatori 
aritmetici. Il simbolo "=" ha il normale significato di 
uguaglianza usato in matematica, con qualcosa in piu'. Il nor.-- 
male significato di uguaglianza e' che quanto sta a sinistra del 
simbolo e' uguale a quanto sta a destra. In programmazione il 
simbolo può' essere usato in questo modo per indicare una 

relazione tra due entità', che può' essere vera o non vera, oppu¬ 
re con il significato di assegnazione, cioè' alla variabile che 
sta a sinistra del simbolo viene assegnato il valore che risulta 
dall'espressione che sta a destra, espressione che può' ridursi a 
una semplice costante. In questa ottica si può' scrivere: X=X+1, 
che dal punto di vista matematico e' un non senso, ma dal punto 
di vista della programmazione significa "aggiungi 1 al prece¬ 
dente contenuto della variabile X". 

Le ESPRESSIONI vengono calcolate partendo da sinistra e muoven¬ 
dosi verso destra, ma dando la precedenza ai calcoli indicati tra 
parentesi rotonde. Inoltre tra gli operatori aritmetici le prece¬ 
denze sono: 

. elevamenti a potenza, 

. assegnazioni del segno meno, 

. moltiplicazioni e divisioni, 

. somme e sottrazioni. 

Se nelle espressioni compaiono delle funzioni, esse sono calco-^ 
late subito e viene sostituito ad esse il loro valore. Se l'argo-» 
mento delle funzioni e' un'espressione, essa viene calcolata pri¬ 
ma della funzione. 
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CAPITOLO 2 


PROGRAMMARE IN BASIC 


2.1 IL PROGRAMMA 

Un PROGRAMMA per calcolatore e' formato da una sequenza di istru- 
zioni eseguibili da parte del calcolatore. 

Ogni calcolatore e' costruito in modo da essere in grado di 
eseguire in modo automatico un programma scritto nel suo LINGUAG- 
CIO MACCHINA e preventivamente registrato nella sua MEMORIA, 
secondo prescritte modalità'. 

La redazione di programmi in linguaggio macchina e' abbastanza 
complessa e viene considerata un lavoro per specialisti; non si 
tratta comunque di un lavoro trascendentale, e, a nostro avviso, 
chiunque dotato di media intelligenza, pazienza e buona volontà' 
può' imparare a programmare un calcolatore in linguaggio macchi-* 
na. 

A partire dall'avvento dei primi calcolatori, nella seconda meta' 
degli anni 50, e' stato affrontato il problema di mettere a pun¬ 
to linguaggi simbolici di programmazione, adatti a consentire la 
diffusione della pratica della programmazione e un conseguente 
utilizzo di massa dei calcolatori. Si trattava di inventare dei 
linguaggi adatti ad essere appresi dall'uomo, e basati su regole 
tali da consentirne senza ambiguità' la conversione in linguag¬ 
gio macchina. Sono stati creati molti tipi diversi di linguaggi, 
ognuno con pregi e difetti, ma tutti molto utili alla diffusione 
dei calcolatori. 

La memoria RAM (Random Access Memory, memoria ad accesso casual 
le, da interpretare come memoria per lettura e scrittura), del 
COMMODORE PLUS-4 serve per registrare i programmi e i dati 
dell'utente. La parte di programmi preregistrata (ROM, Read Only 
Memory) comprende il SISTEMA OPERATIVO e 1'INTERPRETE BASIC. Il 
SISTEMA OPERATIVO comprende tutti i programmi che sovra-; 
intendono al funzionamento del calcolatore; esso e' formato da 
diversi moduli, ognuno con funzioni specifiche, come, per esem¬ 
pio, la gestione delle periferiche. Al momento dell'accensione 
del calcolatore e' attivo il modulo (EDITOR) che gestisce il 
colloquio con l'utente in modo strettamente connesso al lin- 
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guaggio BASIC. Il COMMODORE PLUS-^, come moltissimi altri calco-; 
latori personal, e' predisposto alla programmazione in BASIC. E' 
possibile programmare il calcolatore anche in linguaggio macchi-' 
na, ma l'accesso al linguaggio macchina si ha sempre partendo dal 
BASIC. 

Dal momento che il calcolatore capisce solo il suo linguaggio 
macchina, per poter eseguire un programma scritto in un altro 
linguaggio e' necessario che sia presente nella memoria del 
calcolatore un programma, scritto in linguaggio macchina, che 
funga da intermediario e traduca le istruzioni BASIC in istruì 
zioni eseguibili. Tale intermediario e' 1'INTERPRETE BASIC. 

La scritta che compare all'accensione del calcolatore dice che il 
COMMODORE PLUS-4 contiene l'interprete BASIC nella versione 3.5, 
e che tu puoi disporre di 60671 byte di memoria RAM per il tuo 
programma. 

Indipendentemente dal linguaggio di programmazione usato e' 
necessario capire cosa e' un programma per calcolatore. Esso e' 
una sequenza di istruzioni elementari che descrivono, passo dopo 
passo, cosa il calcolatore deve fare, in modo che: 

. partendo da dati iniziali, 

. svolga un certo tipo di trasformazione dei dati, 

. produca dei risultati. 

In sostanza un programma opera una trasformazione di dati, inteni 
dendo questo concetto in modo molto generale. Possiamo consi-; 
derare una trasformazione di dati cose come: 

. risolvere un'equazione di secondo grado, 

. calcolare la lunghezza della circonferenza di un cerchio, 

. calcolare un volume, 

. elaborare e stampare una fattura, 

. mettere in ordine alfabetico dei nominativi, 

. ricercare quante volte un determinato aggettivo compare in un 
testo, 

. giocare a scacchi, 

e quante altre se ne vogliano aggiungere. 

Qualunque programma tu voglia scrivere, la prima cosa da fare e' 
conoscere bene il problema che il programma deve affrontare e 
risolvere; questo e' di gran lunga il compito piu' difficile per 
il programmatore. 

Un programma va organizzato procedendo nello studio del problema 
che si vuole risolvere. 

Il primo passo e' la definizione esatta e completa del problema 
che deve essere affrontato. In generale, dopo una prima defini¬ 
zione e l'inizio della relativa riflessione, il problema può' ani 
che essere ridefinito in modo piu' opportuno. 

A questo punto e' necessario organizzare in modo preciso i dati 
sui quali il programma deve lavorare. Dei dati interessano diver- 


18 



si aspetti: 

. la loro natura, 

. la loro quantità', 

. la loro fonte. 

Si deve arrivare alla stesura di uno schema contenente tutte le 
caratteristiche dei dati di ingresso, chiamati dati di INPUT. 
Esaurito l'argomento dei dati di INPUT, deve essere affrontato 
quello dei risultati, cioè' dei dati di OUTPUT: 

. cosa si vuole ottenere, 

. in quale forma, 

. su quale mezzo. 

Nel caso di una stampa su carta, deve, per esempio, essere preci* 
sato cosa scrivere su ogni riga, a quale distanza deve trovarsi 
ogni dato dal precedente, e cosi' via. 

Avendo chiarito da dove si parte e dove si vuole arrivare, e' 
necessario stabilire come arrivarci. Si tratta cioè' di sceglie^ 
re la procedura da seguire; si dice anche scegliere gli algo* 
ritmi piu' adatti. Con la parola ALGORITMO si intende "modo di 
procedere", cioè' la sequenza di operazioni necessarie per ope* 
rare la desiderata trasformazione dì dati. 

Abbiamo parlato di operazioni; esse possono essere di tipo 
matematico o logico, e con es3e si può' costruire qualunque 
programma, anche molto complesso. 

Lo studio del problema comporta la stesura di note, che possono 
essere organizzate' in modi diversi. Alcuni preferiscono degli 
appunti schematici, nei quali 1 successivi passi da compiere 
ricevono una numerazione progressiva. Altri preferiscono ricor-* 
rere alla stesura di diagrammi, cioè' di schemi grafici, formati 
da blocchetti di diversa forma, ognuno con un particolare 
significato, all'interno dei quali sono scritte note sintetiche 
esplicative. 

In generale si consiglia un metodo TOP-DOWN, nel quale, partendo 
da una definizione molto generale del problema, si scende, per 
affinamenti successivi, alla stesura finale, che assomiglia già' 
molto alla CODIFICA (scrittura) del programma nel linguaggio di 
programmazione scelto. 

Tutto il lavoro che deve essere svolto prima di arrivare alla 
codifica di un programma va sotto il nome di: ANALISI DEL 
PROBLEMA. 

Ti potrai chiedere se quando inizi lo studio di un problema devi 
decidere a priori in quale linguaggio verrà' codificato il 
programma. La risposta e' che questo non e' a priori necessario, 
anche se la scelta del linguaggio influisce sulla semplicità' 
della programmazione e sull'efficienza dell'elaborazione. E' 
comunque certo che, se un problema e' stato ben studiato, esso 
può' essere tradotto facilmente in un programma scritto in un 
qualunque linguaggio. 
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I dati che vengono trattati da un programma possono essere 
costanti o variabili. I dati costanti possono essere introdotti 
direttamente nelle linee di programma come numeri interi o deci-, 
mali, scritti nel formato a virgola fissa o a virgola mobile, o 
come sequenze di caratteri alfanumerici, che vengono chiamate 
STRINGHE. I dati, che variano durante l'esecuzione del program¬ 
ma, come quelli che si ricevono in INPUT, i risultati intermedi o 
finali, costituiscono le VARIABILI del programma. Ogni VARIABILE 
viene definita assegnandole un nome simbolico, che rispetti le 
regole del linguaggio. Il dato viene richiamato citando il nome 
della variabile che lo contiene. 

Quando accendi il COMMODORE PLUS-4 esso e' già' pronto e aspetta 
che tu scriva un programma o impartisca istruzioni da eseguire in 
modo immediato. 

E' attivo l'EDITOR, che ti consente l'uso del video e della 
tastiera (vedi Paragrafo 1.3). 

Se vuoi essere sicuro che la zona di memoria dedicata al program-> 
ma sia pulita, devi scrivere: 

NEW e premere RETURN. 

Per effetto di questo comando, impartito qui in modo immediato, 
la memoria viene pulita dal programma e dai dati eventualmente 
presenti. 

Se desideri vedere un video pulito e cominciare a scrivere in 
alto, puoi premere i tasti SHIFTfcCLEAR/HOME. 

A questo punto puoi scrivere le tue linee di istruzioni numeran¬ 
dole progressivamente. Se ti sbagli e dimentichi una linea, e' 
semplice rimediare, basta scrivere la linea dimenticata inizian-i 
do con un numero tale che le consenta di essere posizionata dove 
desideri. 

Mentre procedi nella scrittura delle lìnee, il video si riempie e 
può' aver luogo lo scorrimento delle scritte verso l'alto (scrol- 
ling). 

Se ti accorgi che qualche linea presente sullo schermo e' errata 
puoi riscriverla ex novo o spostare il cursore, per mezzo dei 
relativi tasti, posizionarti dove desideri e correggere; la linea 
modificata, o riscritta, va a sostituirsi alla precedente al 
momento della pressione del tasto RETURN. 

Se desideri abolire una linea basta scriverne il numero e pre¬ 
mere RETURN. 

Se desideri rivedere una parte di programma che e' scomparsa dal 
video per effetto dello scrolling, puoi chiederne la lista con il 
comando LIST. Solo che se scrivi LIST e premi RETURN e il pro¬ 
gramma che sta in memoria ha piu' di 25 linee perdi le prime. 
Puoi usare una forma diversa del comando LIST; scrivere per esem¬ 
pio: LIST -100, e ottieni la lista delle linee di programma fino 
a quella numerata 100. Se invece scrivi: LIST 40-120, ottieni la 
lista delle 1 inee numerate da 40 a 120. Se scrivi: LIST 80, 
ottieni la lista della sola linea 80. Se scrivi: LIST 110-, 
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ottieni la lista delle linee dalla 110 in avanti. 

Il tuo programma rimane in memoria fino a quando non scrivi NEW 
oppure togli corrente al calcolatore. 

2.2 IL LINGUAGGIO BASIC 

Il linguaggio BASIC e' di tipo: 

. SIMBOLICO, 

. INTERPRETATIVO, 

. CONVERSAZIONALE. 

SIMBOLICO, perche' lavora su simboli facilmente comprensibili, 
che possono essere parole chiave del linguaggio e nomi simbolici 
creati dal programmatore. 

INTERPRETATIVO, perche' durante l'esecuzione del programma e' 
presente nella memoria del calcolatore il programma INTERPRETE 
BASIC, che provvede alla interpretazione, traduzione e esecu- 
zione delle frasi del linguaggio. 

CONVERSAZIONALE, perche' si svolge un colloquio tra calcolatore e 
utente, che rende molto semplice la stesura, la correzione e 
l’esecuzione del programma. 

Possiamo schematizzare questo grande e potente foglio elettro¬ 
nico, che e' la memoria del nostro COMMODORE PLUS-4, immagi¬ 
nandola divisa nelle seguenti parti: 

. ROM SISTEMA OPERATIVO, 

. ROM INTERPRETE BASIC, 

. RAM programma utente in BASIC, 

RAM dati del programma, del SISTEMA OPERATIVO e 
dell'INTERPRETE BASIC, 
come indicato in Figura 2.1. 


SISTEMA OPERATIVO 


INTERPRETE BASIC 


PROGRAMMA UTENTE 
IN BASIC 


DATI 

DEL PROGRAMMA 
UTENTE 


Figura 2.1 Schema della memoria 
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Esistono molte versioni del linguaggio BASIC; e' comune a tutte 
la stessa filosofia di gestione delle risorse del calcolatore, ma 
possono esserci anche molte differenze, tali da rendere una 
versione molto piu' potente di un'altra. 

Il COMMODORE PLUS-i) e' dotato della versione 3.5 del BASIC, deri-, 
vata dalla versione originale della MICROSOFT, con aggiunta di 
nuovi comandi, che la rendono molto potente. E' molto interes¬ 
sante avere su un personal di basso costo una cosi' ricca versio¬ 
ne del BASIC, come questa marcata 3.5. 

Le istruzioni del BASIC sono formate da PAROLE CHIAVE del 
linguaggio e da PARAMETRI. Con PAROLE CHIAVE si intendono una o 
piu' parole che hanno un particolare significato operativo. Con 
PARAMETRI si intende tutto quello che deve essere scritto oltre 
le parole chiave per rendere completa un’istruzione. 

Le istruzioni del linguaggio sono organizzate in linee che pos-s 

sono comprendere piu' di una istruzione. Se una linea comprende 
piu' istruzioni, esse devono essere scritte separandole con il 
carattere separatore "due punti" (:). Il carattere ":" ha per il 
BASIC il significato di separatore. 

Una linea di istruzioni può' essere scritta ponendo inizialmente 
un numero: NUMERO DI LINEA, oppure iniziando subito con la prima 
istruzione. Questo diverso modo di scrivere una linea da' luogo a 
un comportamento diverso al momento della pressione del tasto 
RETURN, che chiude la linea. Se la linea inizia con il NUMERO DI 
LINEA, essa viene memorizzata nella zona di memoria dedicata al 
programma utente, assegnandole la giusta posizione in base al 
numero di linea. Le linee di istruzioni vengono memorizzate per 
numero di linea crescente. Se la linea non inizia con un numero 
essa viene eseguita immediatamente al momento della pressione del 
tasto RETURN. 

Il BASIC può' dunque lavorare in due modi: 

. MODO IMMEDIATO (linee senza numero), 

. MODO DIFFERITO (linee numerate). 

Vedremo procedendo che non tutte le istruzioni possono essere 
eseguite nei due modi. 

Abbiamo già' fatto esperienza del modo di esecuzione immediato 
nel paragrafo 1.5. 

Nell'Appendice A e' riportata la scheda del BASIC 3.5 del 
COMMODORE PLUS -1 ) e ad essa ti rimandiamo per una visione comple¬ 
ta del linguaggio. 

Raggruppiamo le istruzioni in classi, per avere uno schema sinte¬ 
tico delle possibilità' del linguaggio. 

Abbiamo : 

..Istruzioni per l'ingresso dei dati (operazioni di INPUT): DATA, 
GET, GET#, GETKEY, INPUT, INPUT#, JOY, READ, RESTORE. 

..Istruzioni per l'uscita dei dati (operazioni di OUTPUT): CHAR, 
POS, PRINT, PRINT#, USING, PUDEF, SPC, TAB. 
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..Istruzioni e funzioni di calcolo: ABS, ATN, COS, DEC, DEF FN, 
EXP, FN, INT, LET, LOG, RND, SGN, SIN, SQR, TAN, VAL. 

..Istruzioni e funzioni per dati alfanumerici: ASC, CHR$, HEX$, 
INSTR, LEFT$, LEN, MID$, RIGHT$, STR$. 

..Istruzioni di controllo: DO...LOOP (UNTIL, WHILE, EXIT), END, 
GOTO, GOSUB, IF...THEN...ELSE, FOR...TO...STEP, NEXT, ON...GOTO, 
ON...GOSUB, RÉSUMÉ, RETURN, SYS, TRAP, USR, WAIT. 

..Istruzioni per grafica ad alta risoluzione e multicolore: BOX, 
CIRCLE, COLOR, DRAW, GRAPHIC, GSHAPE, LOCATE, PAINT, RCLR, RDOT, 
RGR, RLUM, SCALE, SCNCLR, SSHAPE. 

..Istruzione per suonare: SOUND, VOL. 

..Istruzioni di servizio per la stesura e la gestione del 
programma e dei dati: AUTO, BACKUP, CLOSE, CLR, CMD, COLLECT, 
CONT, COPY, DELETE, DIM, DIRECTORY, DLOAD, DSAVE, FRE, HEADER, 
KEY, LIST, LOAD, MONITOR, NEW, OPEN, PEEK, POKE, REM, RENAME, 
RENUMBER, RUN, SAVE, SCRATCH, STOP, TROFF, TRON, VERIFY. 

Le regole per la formazione dei nomi delle variabili sono le 
seguenti : 

. Il nome deve essere formato da al massimo due caratteri (ne 
puoi usare di piu', ma vengono riconosciuti solo i primi due), il 
primo deve essere una lettera, il secondo può' essere una let¬ 
tera o una cifra. 

. Il nome deve essere seguito dal suffisso % per indicare numeri 
interi. 

. Il nome deve essere seguito dal suffisso $ per indicare variai 
bili stringa. 

. I nomi senza suffisso si riferiscono a variabili reali. Le 

variabili sopra descritte sono VARIABILI SINGOLE, ogni nome 
corrisponde a un dato. 

2.3 LE ISTRUZIONI PIU' ELEMENTARI 

Ci proponiamo di risolvere il seguente problema: 

CHIEDERE UN NUMERO, CALCOLARNE IL QUADRATO E IL CUBO E MOSTRARE I 
RISULTATI. 

Per avere una certa liberta' dobbiamo lavorare con numeri reali, 
infatti la grandezza consentita per i numeri interi ci blocche- 
rebbe subito. Dobbiamo scegliere un nome per la variabile che de=r 
ve ricevere da tastiera il numero; la chiamiamo N. Il numero N e' 
l'unico dato di INPUT necessario per risolvere il nostro proble¬ 
ma. Dobbiamo creare due nomi di variabili per contenere rispetti¬ 
vamente il quadrato e il cubo di N; scegliamo N2 per il quadrato 
o N3 per il cubo. L'algoritmo di calcolo e' molto semplice, 
I rifatti : 

NP-N*N e N3=N2*N. Abbiamo già' visto che l'asterisco si usa co¬ 
mi: operatore per la moltiplicazione. Le formule di calcolo posso- 
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no anche essere scritte in un altro modo: 

N2=N~2 e N3=N~3. dove la freccia verso l'alto significa "ele-> 
vato a". 

Decidiamo di fornire i risultati in modo chiaro, scrivendo sul 
video: 

N=... 

IL QUADRATO DI N E' UGUALE A ... 

IL CUBO DI N E' UGUALE A ... 

Descriviamo verbalmente la procedura da programmare: 

.1) legge dalla tastiera un numero N; 

.2) calcola il quadrato di N e lo pone in N2; 

•3) calcola il cubo di N e lo pone in N3; 

.4) stampa i risultati. 

Possiamo descrivere la procedura anche con lo schema riportato 
nella Figura 2.2, che prende il nome di DIAGRAMMA A BLOCCHI. 



Figura 2.2 Diagramma a blocchi ES2.1 


Riportiamo ora il listato del programma BASIC ES2.1 che risolve 
il problema posto. 
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1 REM ES2.1 

10 INPUT"SCRIUI UN NUMERO ";N 
20 N2=Nf2:N3=Nt3 
30 PRINT"N = N 

40 PRINT"IL QUADRATO DI NE' UGUALE A: ";N2 
50 PRINT"IL CUBO DI N E' UGUALE A: ";N3 


Ti facciamo osservare i limiti di questo programma; esso lavora 
per un solo numero, dopo aver eseguito i calcoli e stampato i 
risultati si ferma. 

Commentiamo ora le linee del programma ES2.1. 

. 1: inizia con la parola chiave REM, abbreviazione di REMark, 
che in italiano significa ANNOTAZIONI. Quello che segue REM vie¬ 
ne considerato un commento; noi abbiamo scritto il nome attri¬ 
buito al programma, ma potevamo scrivere qualunque altra cosa. I 
commenti possono contenere anche il carattere , che in questo 
caso non viene considerato come carattere separatore tra is¬ 
truzioni; in conseguenza l'istruzione REM deve essere l'ultima di 
una linea che contenga piu' istruzioni. 

. 10: e' l'istruzione per chiedere dati dalla tastiera; alla 
parola chiave INPUT può' seguire, come nel nostro caso, un 
messaggio esplicativo della richiesta di dati, compreso tra 
virgolette, seguito da e dalla lista delle variabili nelle 
quali si vuole siano memorizzati i dati letti dalla tastiera, 
separate da virgola. Il messaggio deve essere dato sotto forma di 
costante; non si può' usare il nome di una variabile che lo 
contenga. 

Il calcolatore evidenzia un "?" di richiesta dati (dopo il 
messaggio, se presente). Devi rispondere con tanti dati quanti 
sono quelli richiesti, ponendo una virgola alla fine del dato, se 
ne seguono altri, e premendo RETURN alla fine. Se rispondi con 
meno dati di quelli richiesti, il calcolatore va a capo e ti 
mostra "??" a segnalarti che non hai esaurito la richiesta. Devi 
cercare di rispondere con dati che concordino con il tipo delle 
variabili presenti nella lista; in caso contrario il calcolatore 
scrive "7RED0 FROM START" e ti chiede nuovamente i dati. Hai que¬ 
sta segnalazione di errore se rispondi con una parola alla 
richiesta del numero nel nostro programma. 

. 20: viene assegnato alla variabile N2 il quadrato del numero N 
e alla variabile N3 il cubo del numero N. La linea comprende due 
istruzioni di assegnazione separate da L'istruzione di 
assegnazione può' iniziare con la parola chiave LET, cosi': LET 
N2=N~2, che pero' e' facoltativa. Dopo L'esecuzione dell'istru¬ 
zione, la variabile posta a sinistra di "=" contiene il risul¬ 
tato dell'espressione posta a destra. 

. 30: la parola chiave PRINT ordina di stampare quello che segue. 
La lista di stampa può' comprendere variabili e costanti, che 
possono essere separate da: 
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per stampare i dati nel loro formato senza aggiunta di spa- 
zi intermedi; 

per stampare il dato passando alla prossima zona di stampa 
per il successivo. Sul video le zone di stampa sono *1 di 10 
caratteri ciascuna. 

Noi stampiamo un messaggio e il numero N. 

Se la lista di stampa termina senza punteggiatura (, o ;), come 
nel nostro caso, si ha il passaggio a nuova linea, dopo la stam-* 
pa (va a capo). 

. 40: stampa un messaggio e il numero N2. 

. 50: stampa un messaggio e il numero N3. I due risultati appari-' 
ranno nel formato necessario per il numero di cifre che lì 
compongono. 

FORMATI DI STAMPA 
I formati di stampa sono: 

. uno spazio o il segno meno, il numero, il salto di una posizio¬ 
ne, per i dati numerici; 

. i caratteri che le compongono per le stringhe. 

Riportiamo ora il listato del programma ES2.2, che rappresenta 
una modifica di ES2.1. In esso abbiamo- introdotto dei caratteri 
di controllo nei messaggi, e precisamente: 

. 10: il carattere FLASH ON all'inizio del messaggio e il carat¬ 
tere FLASH OFF alla fine. 

.30: il carattere RVS ON all'inizio del messaggio e il carat¬ 
tere RVS OFF alla fine. 

.40: il carattere CTRL-3, per passare al colore rosso e il 
carattere RVS ON all'inizio del messaggio, il carattere RVS OFF 
alla fine. In questo modo e' rimasto attivo il colore rosso anche 
per la stampa del numero. 

.50: i caratteri RVS ON e RVS OFF all'inizio e alla fine del 
messaggio. 

. 60: abbiamo aggiunto PRINT del carattere CTRL-1 per tornare al 
colore nero. 

1 REM ES2.2 

10 INPUT"|ISCRIVI UH HUMER05 ";N 
20 M2=Nf2:N3=Nf3 
30 PRI HT"li1N= N 

40 PRIHT"gUjIL QUADRATO DI N E' UGUALE A :■ ";N2 
50 PRINT"iaiL CUBO DI HE' UGUALE A :■ ";N3 
60 PR IMI"!"" 


Segue il listato del programma ES2.3, nel quale, rispetto ad 
ES2.1, abbiamo solo aggiunto la linea 60. Essa contiene una PRINT 
senza lista per andare a capo e l'istruzione GOTOIO. L'istru¬ 
zione GOTO (che può' anche essere scritta GO TO), seguita dal 
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numero di una linea del programma, provoca un salto incondi¬ 
zionato al numero di linea citato, cioè' fa continuare l'esecu¬ 
zione del programma da quel punto. 

I REM ES2.3 

10 INPUT"SCRIUI UN NUMERO ";N 
20 N2=Nt2:N3=Nt3 
30 PRI NT‘‘N = N 

•10 PRINT"IL QUADRATO DI H E' UGUALE A: ";N2 
50 PRINT"IL CUBO DI N E' UGUALE A: ";N3 
«0 PRINT:GOTO10 

LI programma ES2.3 e' un programma che non finisce mai. E' un po' 
laborioso interromperlo, infatti durante la richiesta di dati il 
calcolatore non riconosce lo STOP; puoi premere contem¬ 
poraneamente RUN/STOP e il tasto laterale di RESET, per inter¬ 
rompere il programma senza cancellarlo dalla memoria, e poi X e 
RETURN. 

Segue il programma ES2.4, che consiste nella stampa di costanti, 
numeri e stringhe, per farti comprendere bene come viene gestita 
la stampa sul video a seconda dei separatori usati nella lista di 
alampa. 

I REM ES2.4 

I (I SS="1234567890123456789012345678901234567890" 

15 PRINTSS 

.'8 PRINT"ABC'\"DEF , VGHI" 

.'5 PRINTSS 

III PRINT"ABC";“DEF";"GHI" 

15 PRINTSS 

•MI PRINT35, -987,1237 
45 PRINTSS 

50 PRINT"AABBCCDDEEFFGGHHLLM","NUOVA" 

55 PRINTSS 

HO PRINT"AABBCCDDEEFFGGHHLLMM","NUOVA” 

Il5 PRINTSS 

MI PRINT2345;9876;-5432 

in k:» 2.1| la stringa S$, che viene stampata prima di ogni lista di 
dall, serve per numerare le colonne del video; risulta cosi' piu' 
ladLe controllare l'effetto della lista di stampa successiva. 
Riportiamo i risultati di ES2.4. 


I 34507890123456789012345678901234567890 
Olii DEF GHI 

II43C7890123456789012345678901234567890 
AMI DI I GHI 

I14567890123456789012345678901234567890 
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35 -987 1237 

1234567898123456789012345678961234587830 
AABBCCDDEEFFGGHHLLM NUOVA 
1234567890123456789012345678981234567890 
AABBCCDDEEFFGGHHLLMM NUOVA 

1234567890123456789012345678901234567830 
2345 9876 -5432 


Come puoi osservare sono verificate tutte le cose dette fino ad 
ora, e cioè' l'effetto della virgola e del punto e virgola. 

Nel programma ES2.5, richiediamo 3 dati con una istruzione di 
INPUT. Puoi provare a rispondere premendo RETURN dopo ogni dato 
per vedere comparire "??". 


1 REM ES2.5 

10 INPUfSCRIVI TRE NUMERI ";X1,X2,X3 
20 N=<ABS<Xl*X2-X3>>t<iV2> 

25 M=SQR(ABS(X1*X2-X3)>:Z=N-M 
30 PR INT , ‘X1= ,, X1 ,, X2= , "X2" , X3= ,, X3 
40 PRINT"ABS<X1*X2-X3)t<l/2)="N 
50 PRINT <> SQR(ABS<Xi»X2-X3>)=“M 
60 PRINT“N-M=”Z 

Riportiamo il commento a ES2.5. 

. 10: richiesta dei 3 numeri XI,X2 e X3. 

. 20: calcolo di N. Nell'espressione abbiamo usato ABS per evi-> 
tare di elevare a esponente 1/2 (estrazione di radice) un numero 
negativo. 

. 25: calcolo di M. Nell'espressione usiamo la funzione SQR per 
estrarre la radice, cioè' scriviamo in altro modo lo stesso cal¬ 
colo di prima. Inoltre calcoliamo in Z la differenza tra N e M. 

. 30: stampa i 3 dati di INPUT, preceduti ognuno da un messag¬ 
gio, senza usare separatori nella lista di stampa. 

. 40,50,60: stampa i risultati senza usare separatori nella lista 
di stampa. 

Ricorda che se nelle istruzioni INPUT rispondi solo con RETURN 
alla richiesta di un dato, la variabile interessata mantiene il 
suo precedente valore. Inoltre, se prima di scrivere il dato pre-> 
mi la barra di spazio, questi spazi non vengono conservati. Per 
conservare spazi o altri caratteri, tipo i separatori, all'ina 
terno delle variabili stringa, devi iniziare aprendo le virgo- 
lette, e terminare chiudendole. 
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2.H ESECUZIONE DEL PROGRAMMA 


Per eseguire un programma basta scrivere RUN e premere RETURN. 
L'effetto del comando RUN e' il seguente: 

. 1: vengono azzerate tutte le variabili numeriche, 

. 2: vengono ridotte a stringhe nulle, di 0 caratteri, tutte le 
variabili stringa, 

. 3: il programma va in esecuzione a partire dalla sua prima 
istruzione. 

Il comando RUN può' essere scritto anche in altro modo: RUN 
numero-linea. In questo caso i punti 1 e 2 sono identici, mentre 
il programma va in esecuzione a partire da numero-ilinea. 

Se vuoi evitare l'effetto dei punti 1 e 2 puoi far partire il 
programma scrivendo: 

GOTO num-'linea e premendo RETURN. 

Se durante l'esecuzione del programma vedi comparire un messag¬ 
gio di errore, devi rivedere il listato, e in particolare la 
linea segnalata come errata, correggere e riprovare. Ricordati 
che modificando il programma si cancellano i contenuti delle 
variabili. Vedi il Paragrafo 3.8. 

La prova di un programma e' una parte molto importante del lavo-* 
ro di programmazione. Essa può' risultare molto gravosa, se non 
e' stata svolta bene l'analisi del problema. Inoltre, se un 
programma e' complesso, devi dedicare molta cura alla prepa¬ 
razione dei casi prova; infatti essi devono essere tali da 
consentire di provare il programma in tutte le sue parti e nelle 
condizioni limite. 

Per esempio, se nel programma ES2.5, avessimo omesso l'uso della 
funzione ABS e eseguito la prova solo con numeri tali che il 
risultato del calcolo fosse stato positivo, il programma avrebbe 
in seguito dato errore, la prima volta che i numeri scelti aves-* 
sero fornito un risultato negativo. 

2.5 SCRITTURA FACILITATA DEL PROGRAMMA 

Il BASIC 3-5 mette a disposizione alcuni comandi che facilitano 
la stesura dei programmi. Essi sono: AUTO e RENUMBER. 

Il comando AUTO, che ha senso usare solo in modo immediato, 
consente di fissare l'incremento per i numeri di linea che si 
scrivono dopo la sua esecuzione. Scrivendo: 

AUTO 10 

fissi a 10 l'incremento tra i numeri di linea. Dopo l'esecuzione 
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del comando, puoi scrivere una linea di programma iniziando con 
il numero che desideri; quando premi RETURN, la tua linea viene 
memorizzata e compare automaticamente sul video il numero della 
linea successiva (vecchio numero + 10, in questo caso), con il 
cursore posizionato dopo di esso, e tu puoi cominciare a scri-^ 
vere la prima istruzione della nuova linea. In sostanza risparmi 
la fatica di scrivere il numero di linea e eviti di sbagliarlo. 
Conviene dare come incremento un numero maggiore di 1, in modo di 
poter inserire nuove linee in caso di bisogno. 

Per uscire dalla predisposizione AUTO, basta scrivere AUTO e pre¬ 
mere RETURN. Per interrompere la numerazione e passare ad altro 
basta premere solo RETURN quando compare il numero della nuova 
linea; questo pero' non annulla la predisposizione AUTO che rima-i 
ne attiva e si manifesta quando si ricomincia a scrivere nuova-> 
mente una linea di programma o se ne corregge una già' esisten¬ 
te . 

Non devi preoccuparti se dopo aver immesso un programma esso si 
presenta con numerazione irregolare, cioè' non sempre lo stesso 
intervallo tra le linee; il programma infatti funziona uguale 
mente, se non contiene istruzioni errate o errori di imposta¬ 
zione. Quando sei sicuro che il programma funziona, oppure quan¬ 
do lo desideri, puoi rimettere ordine nella numerazione delle 
linee di programma con il comando RENUMBER. 

Il comando RENUMBER, che ha senso usare solo in modo immediato, 
si può' scrivere senza far seguire la parola chiave da parame-i 
tri; in questo caso il programma presente in memoria, viene 
rinumerato partendo dal numero 10 per la prima linea e incremen-* 
tando di 10 i numeri di linea. Nella rinumerazione vengono 
risistemati tutti i richiami a linee preesistenti. La parola 
chiave RENUMBER può' essere seguita da 3 parametri: 

RENUMBER numeron,ine.numerov 
dove: 

. numeron, e' il nuovo numero da cui partire, 

. ine, e' l'incremento da usare tra i numeri di linea, 

. numerov, e' il vecchio numero di linea da cui partire nella 
rinumerazione. 

Se trascuri il primo o il secondo parametro, devi mettere al lo¬ 
ro posto una virgola, e vengono presi i valori di default, cioè' 
10. La presenza del terzo parametro consente di rinumerare il 
programma in modo parziale, cioè' partendo da un punto deter-, 
minato e non modificando quello che viene prima. Non e' consen¬ 
tito usare per il primo parametro un valore uguale a un numero di 
linea già' esistente, e che non viene modificato per effetto del 
punto di partenza (terzo parametro). 

Durante la stesura di un programma RENUMBER può' essere usato 
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anche piu' volte. Per esempio a un certo punto vuoi aggiungere 
tra due istruzioni preesistenti piu' istruzioni di quanto possi-» 
bile in base alla numerazione; allora usi RENUMBER dando un 
incremento grande, aggiungi tutto quello che credi e poi usi 
ancora RENUMBER per fare ordine. 

Quando un programma e' terminato e si pensa di non doverlo piu' 
modificare, e' consigliabile rinumerarlo partendo da 1 e usando 
un incremento di 1 ; evitando i numeri grandi si risparmia memo-» 
ria. 

Nel Paragrafo 2.1 abbiamo già' parlato dei comandi NEW e LIST. Ti 
suggeriamo ora alcuni accorgimenti che ti aiutano nella stesura 
di un programma. Se il tuo programma contiene istruzioni simili o 
uguali, puoi richiamare sul video con LIST n, la linea di model-» 
lo, poi portarti su di essa e modificarla dove necessario, anche 
solo nel numero di linea. Sei facilitato dall'uso dei tasti di 
spostamento del cursore e dalle possibilità' che ti offre 
1'EDITOR (vedi Paragrafo 1.3). 

2.6 GESTIONE DEL PROGRAMMMA 

E' importante conservare i programmi su cassetta per poterli 
riutilizzare quando servono. L'unita' DATASSETTE 1531 consente di 
posizionare il nastro al numero di giri desiderato e questo e' 
utile per un buon utilizzo dello stesso. Ti raccomandiamo di 
mantenere i tasti'del registratore in posizione di riposo e di 
azionarli solo quando richiesto. 

Per memorizzare su nastro un programma devi scrivere: 

SAVE "nome" 

dove "nome" e' il nome che vuoi assegnare al programma per 
riconoscerlo. Il nome del programma può' anche essere dato sotto 
forma di variabile stringa. 

Dopo aver premuto RETURN, sul video compare il messaggio: 

PRESS PLAY & RECORD ON TAPE 

devi eseguire; basta premere RECORD, dato che si abbassa insieme 
anche PLAY. 

Il calcolatore risponde con: 

OK 

SAVING "nome" 

e il video si sbianca diventando del colore del bordo, il nastro 
gira, si accende l'indicatore luminoso del registratore, dopo po¬ 
co ricompaiono le scritte precedenti sul video, con in piu': 
READY. 

si spegne l'indicatore del registratore e il nastro si ferma. A 
questo punto il tuo programma e' stato registrato ed e' 
consigliabile rimettere i tasti PLAY e RECORD in posizione di 
riposo. 
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Per essere sicuro che la registrazione e' stata buona, devi 
procedere alla verifica operando cosi': 

. riavvolgere il nastro per posizionarlo all'inizio della 
registrazione, 

. scrivere: 

VERIFY "nome" e premere RETURN, 
il calcolatore chiede: 

PRESS PLAY ON TAPE 

e dopo la pressione del tasto compare: 

OK 

SEARCHING FOR "nome" 

si sbianca il video , dopo un po' compare: 

FOUND "nome" 

VERIFYING 

si sbianca nuovamente il video e alla fine compare: 

OK, se e' andato tutto bene, 

?VERIFY ERROR se la verifica non e' stata buona. 

In quest'ultimo caso si deve riavvolgere il nastro al punto giu¬ 
sto e ripetere la procedura di memorizzazione con conseguente 
verifica. 

Se ometti il nome dopo VERIFY viene confrontato il primo program^ 
ma trovato sul nastro con quello presente in memoria. Usando il 
nome, invece, se vengono incontrati prima altri programmi, essi 
non vengono confrontati e la verifica avviene solo quando viene 
trovato il programma con il nome richiesto. 

Segue la spiegazione del significato del FLAG che può’ accompa-- 
gnare le istruzioni SAVE, VERIFY e LOAD. L’argomento e' stato 
affrontato per completezza, pero', se sei un principiante, ti 
consigliamo di tralasciarne per il momento la lettura. 

Abbiamo considerato la forma piu' semplice del comando SAVE; in 
realta', dopo il nome del programma, si possono aggiungere altri 
due parametri, cosi': 

SAVE "nome",1,flag 

dove 1 e' il numero logico dell'unita' DATASSETTE 1531» e il flag 
può' valere 1, 2 o 3, con il seguente significato: 

. flag=1, per memorizzare il programma in modo che al momento del 
LOAD non venga modificato il suo indirizzo di inizio in memoria, 
ma mantenga quello che era al momento del SAVE, 

. flag=2, per memorizzare dopo il programma una segnalazione di 
"FINE NASTRO", 

. flag=3, per ottenere insieme i due precedenti effetti. 

Se il flag viene omesso esso vale 0 e ha il significato di 
memorizzare il programma in modo rilocabile. La RILOCAZIONE di un 
programma ha questo significato: 

. di norma il programma BASIC inizia al byte di indirizzo 4097 e 
questo indirizzo si trova nei byte 43 e 44 (puntatore all'inizio 
del programma), 

. se prima di scrivere un programma sposti il puntatore all'i-4 
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nizio del programma modificando il contenuto dei byte 43 e 44, il 
programma inizia a un indirizzo diverso da 4097. 

. se usi il flag=0 nell'istruzione SAVE il programma viene 
memorizzato in modo da essere rilocabile, 

. se usi il flag=1 o il flag=3 nell'istruzione SAVE il programma 
viene memorizzato mantenendo l'informazione sul suo indirizzo di 
inizio, qualunque esso sia, e non e' rilocabile, 

. al momento del LOAD, istruzione nella quale e' possibile usare 
per il flag il valore 1, o il valore 0 (assenza di flag), si ha 
il seguente comportamento: 

.. per flag=0 il programma viene caricato a partire dall’ina 

dirizzo di inizio programma che si trova nei byte 43 e 44, 
rilocandolo o meno a seconda del modo come era stato memoriz¬ 
zato 

.. per flag=1 il programma viene caricato a partire dall’in-* 

dirizzo dove si trovava al momento del SAVE, e questo può' esse¬ 

re in disaccordo con il valore contenuto nei byte 43 e 44. 

Se per memorizzare e' stato usato il flag, l'istruzione VERIFY 
deve essere scritta in modo tale che non ci sia contrasto con la 
situazione della memoria e quello che sta sul nastro. Se risulta 
necessario usare il flag, puoi scrivere cosi': 

VERIFY "nome",1.flag. 

Se sottointendi il numero dell'unita', viene assunto il valore di 
default che e' 1. Se vuoi scrivere il flag e non mettere 1, devi 
usare due virgole. 

Per caricare in memoria un programma si usa il comando LOAD; 

nella forma completa esso si scrive: 

LOAD "nome",1,flag 
dove: 

. "nome", può' anche essere una variabile stringa che contenga il 
nome del programma, 

. 1, e' il numero logico dell'unita’ DATASSETTE 1531, 

. flag può' valere 0 (o essere assente) o 1, con i significati 
sopra spiegati. 

2.7 STRUTTURE DEL PROGRAMMA 

Fino ad ora abbiamo esaminato programmi con svolgimento 
sequenziale. Ci occupiano qui delle strutture di controllo, che 
permettono di uscire dalla sequenza e proseguire da altri punti 
del programma. 

STRUTTURA CONDIZIONALE 

Le condizioni che il COMMODORE PLUS-4 può’ valutare, sono rela¬ 
zioni del tipo: 

1 >2 
2<8 

A/3=SIN(Z) 


33 



Ad ogni espressione di questo tipo il calcolatore sa assegnare il 
valore VERO o FALSO, esprimendo VERO con il numero -ni e FALSO con 
il numero 0. Prova ad esempio a scrivere PRINT 1 >2 e premi 
RETURN: la risposta sara' 0, cioè' FALSO; ma se scrivi PRINT 2<8 
e premi RETURN la risposta sara' -il cioè' VERO. Puoi anche asse¬ 
gnare una risposta di questo tipo ad una variabile; ad esempio 
l'istruzione A=B=C vuole dire: poni A=->1 se B=C, altrimenti poni 
A=0. Una variabile usata come la variabile A prende il nome di 
VARIABILE B00LEANA o LOGICA. 

Quando parleremo di CONDIZIONI ci riferiremo quindi a relazioni 
del tipo A>2 o a variabili booleane. 

Gli operatori relazionali del COMMODORE PLUS-4 sono 6: 

= UGUALE 
> MAGGIORE 
< MINORE 
<> DIVERSO 
>= MAGGIORE 0 UGUALE 
<= MINORE 0 UGUALE 

Queste relazioni valgono anche per stringhe e costanti alfanu¬ 
meriche: 

"A"<"B" VERO (la lettera A viene prima della B) 

"WA"<"RZ" FALSO (la lettera W viena dopo la R) 

Piu' condizioni possono essere combinate per formare un'unica 
condizione con gli operatori logici AND, OR e NOT: 

CONDÌ AND C0ND2: vero se sono vere entrambe 

CONDÌ OR C0ND2: vero se sono vere o CONDÌ o C0ND2 o entrambe 

NOT CONDÌ: vero se CONDÌ e’ falsa 

ESEMPI: 

A>0 AND A<4: VERO se 0<A<4 

A<0 OR A>4: VERO se A non appartiene all'intervallo 0-4 
NOT A: VERO se la variabile booleana A e' falsa 

Se per combinare piu' condizioni usi piu' operatori logici, 
ricorda che il COMMODORE PLUS-4 esegue prima NOT poi AND e quin-i 
di OR. Se vuoi farle eseguire con un ordine diverso puoi usare le 
parentesi : 

CONDÌ AND (C0ND2 OR C0ND3) 

In questo caso eseguirà' prima la OR e quindi la AND. 

IF ... THEN ... ELSE 

Se vuoi che il COMMODORE PLUS-4 esegua un'azione solo se e' 
verificata una condizione, devi usare l'istruzione IF... THEN. 
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La parola chiave IF deve essere seguita da una condizione, segui-* 
ta dalla parola chiave THEN e da una o piu' istruzioni separate 
da due punti. Tutte le istruzioni che appaiono dopo il THEN sul^ 
la linea di programma vengono eseguite solo se la condizione e' 
verificata: 

Ecco alcuni esempi di istruzione IF: 

IF A THEN COLORI,7,3: PRINT "PIPPO" 
oppure 

IF X>0 AND X<10 THEN PRINT "0<X<10» 

Nel primo caso A e' una variabile booleana, nel secondo X e' una 
variabile reale. 

Nel primo caso, se A e' vero (cioè' A=--1 ) il COMMODORE PLUS-4 
colora di blu' il cursore e scrive "PIPPO", se invece A e' falso 
(cioè' A=0), non scrive nulla e non cambia il colore del curso^ 
re. 

Se A vale un numero diverso da 0 e da -.1 il COMMODORE PLUS-4 
considera A vera ma anche NOT A viene considerata vera. 

Questo capita perche' il BASIC non possiede delle vere e proprie 
variabili booleane (i cui valori siano cioè' solo VERO o FALSO), 
ma permette che il*programmatore usi le variabili numeriche co¬ 
me booleane. 

Assegna quindi i valori 0 e -il (intendendo FALSO e VERO) alle 
variabili numeriche usate come booleane, e intende FALSE le 
variabili numeriche che valgono 0 e VERE le variabili numeriche 
che hanno un valore diverso da 0. L'operatore NOT e' un'ope-* 
ratore logico che può' essere applicato anche su numeri interi e 
che per 0 vale -1 ma per 5, ad esempio, vale -*6: succede quindi 
che 5 e NOT 5 siano entrambi VERI (sono entrambi diversi da 0). 
Nel BASIC del COMMODORE PLUS^M, applicando NOT a un numero reale 
R, come risultato si ottiene NOT INT (R). I numeri reali per i 
quali NOT R = 0 sono quindi quelli compresi tra 0 (escluso) e -=1. 
Si può' completare una frase IF con la parola chiave ELSE: deve 
essere posta dopo l'istruzione (o le istruzioni) che segue THEN, 
preceduta da due punti e seguita dalla o dalle istruzioni che si 
vogliono far eseguire se la condizione non e’ verificata: ad 
esempio 

500 IF A>2 THEN GOSUB 1000: ELSE G0SUB 2000 

510 ... 

Se A>2 esegue la routine in 1000 e dopo prosegue da 510. 

Se A<=2 esegue la routine in 2000 e dopo prosegue da 510. 


35 



I CICLI 


E' possibile far eseguire al tuo COMMODORE PLUS-4 una o piu' 
azioni infinite volte, come in ES2.6: 

1 REM ES2.6 
10 PRINT ,, CIftO" 

20 GOTO10 


Ma possiamo voler far ripetere al calcolatore un'azione, o piu' 
azioni, per un numero prefissato di volte o fino a che una certa 
condizione venga verificata: per far ciò' usereremo le istru¬ 
zioni BASIC 
FOR ... NEXT e 
DO ... LOOP 

I CICLI FOR ... NEXT 

Le istruzioni FOR ... NEXT servono a far eseguire al calcolatore 
una o piu' azioni per un numero prefissato di volte. Esse deb¬ 
bono essere poste rispettivamente all'inizio e alla fine della 
serie di istruzioni che si vuole far ripetere. 

La FRASE FOR può' essere di questo tipo: 

FOR 1=1 TO 10 

La lettera I e' il nome di una variabile di controllo, e può' 
essere sostituita da un qualunque altro nome valido per una 
variabile numerica, i numeri 1 e 10 sono il valore iniziale e 
finale della variabile: questo ciclo viene quindi ripetuto 10 
volte e la variabile I assume i valori da 1 a 10. 

La frase che serve per chiudere la serie di azioni che vogliamo 
far eseguire per dieci volte e' NEXT I o, piu' semplicemente 
NEXT. 

All'uscita dal ciclo la variabile di controllo contiene l'ultimo 
valore raggiunto, quello per il quale il ciclo non e' stato ese¬ 
guito. 

Se, per esempio, vogliamo far scrivere al COMMODORE PLUS-4 i 
numeri da 1 aio, dobbiamo programmarlo nel seguente modo: 

I REM ES2.7 

10 FOR 1=1 TO 10 
20 PRINT I 
30 HEXT I 

II COMMODORE PLUS-4, quando trova il comando FOR capisce che de-: 
ve iniziare un ciclo la cui variabile di controllo e' I ; ad essa 
assegna il valore iniziale (nel nostro caso 1) e passa quindi ad 
eseguire la prossima istruzione. Quando incontra NEXT aggiunge 
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alla variabile di controllo 1 e, se I e' minore o uguale al valo-> 
re finale torna all'istruzione che segue la frase FOR (nel nostro 
caso PRINT I), altrimenti prosegue. La frase FOR può' essere 
completata dalla parola chiave STEP: questa, se usata, deve esse¬ 
re seguita da un numero reale, positivo o negativo, che viene 
sommato alla variabile di controllo quando il COMMODORE PLUS-*4 
trova l'istruzione NEXT. Questo numero si chiama INCREMENTO. Se 
l'incremento e' negativo il numero iniziale deve essere maggiore 
del numero finale e, arrivato all'istruzione NEXT, il calco¬ 
latore controlla che I sia ancora MAGGIORE o uguale al valore 
finale per tornare al ciclo. 

Per capire meglio abbiamo preparato il programma ES2.8: 

1 REM ES2.8 

10 FOR 1=10 TO 9 STEP -0.6 
20 PRINT I 
30 NEXT I 
40 PRINT ,, FINE" 

Cerchiamo di capire passo per passo che operazioni compie il COM-> 
MODORE PLUSr4 quando esegue ES2.8, commentando le linee: 

. 10: inizializza il ciclo e pone la variabile 1=10 
. 20: scrive il valore di I, cioè' 10 

. 30: incrementa la variabile di controllo di -0.6 cioè' 

1=10+ (*>0.6) =9.4 e poiché' 1 e' maggiore di 9 (valore finale) tor¬ 
na alla linea 20 

. 20: scrive il valore di I, cioè' 9.4 

. 30: incrementa la variabile di controllo di -0.6 cioè' 

I=9.4+(-0.6)=8.8 e poiché' I e’ minore di 9 (valore finale) 
prosegue 

. 40: scrive FINE e termina. 

Se il valore iniziale e' maggiore di quello finale e l'incre¬ 
mento e' positivo (o se il valore iniziale e' minore di quello 
finale e l'incremento e' negativo), le istruzioni comprese tra 
FOR e NEXT vengono eseguite una volta. 

Si possono far compiere piu' cicli FOR ... NEXT posti uno dentro 
l'altro come in ES2.9 

1 REM ES2.9 
10 FOR 1=1 TO 10 
20 FOR J=i TO 30 
30 NEXT J 
40 NEXT I 

Si possono "inscatolare" al massimo 10 cicli uno dentro all'al¬ 
tro. Se si tenta di inserire l'undicesimo, quando incontra 
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l'inizializzazione di questo, il COMMODORE PLUS-4 da' il messag¬ 
gio di errore OUT OF MEMORY, poiché' ha già' occupato tutta l'a¬ 
rea in cui può' memorizzare il numero della prima linea del 
ciclo, il valore finale della variabile di controllo e l'incre¬ 
mento . 

E' sbagliato, invece, far eseguire dei cicli concatenati come in 
ES2.10 

1 REM ES2.10 
10 FOR 1=1 TO 10 
20 FOR J = i TO St- 
30 NEXT I 
40 NEXT J 


In un caso come questo, se dopo l'istruzione NEXT e' indicata la 
variabile a cui si riferisce, il COMMODORE PLUS-4 da' il messag¬ 
gio di errore NEXT WITHOUT FOR; altrimenti eseguirà' i due cicli 
come se fossero "inscatolati" nel modo corretto. Ti consigliamo 
quindi di scrivere sempre il nome della variabile di controllo a 
cui si riferisce un NEXT: in questo modo se hai inanellato male 
due cicli FOR ... NEXT il COMMODORE PLUS-4 ti segnala l'errore 
invece di comportarsi in maniera diversa da come tu pensavi. Un 
altro buon motivo per scrivere la variabile di controllo dopo un 
NEXT e' la LEGGIBILITÀ' del programma: se cioè' cerchi di capire 
cosa volevi far fare al tuo COMMODORE PLUS-4 con un programma 
scritto tre mesi fa', ti può' essere di grande aiuto aver scrit¬ 
to, dopo ogni NEXT la variabile a cui ti riferivi, anche se al 
momento ti sembrava inutile. 

Per chiudere due cicli "inscatolati" correttamente puoi usare 
anche la forma NEXT I,J che e' perfettemente equivalente a 
NEXT I: NEXT J. 

Un'ultima osservazione su questo genere di cicli: il valore 
iniziale, il valore finale e l'incremento possono essere numeri 
interi o reali, variabili, o espressioni matematiche del tipo: 


1 REM ES2.11 

10 FOR I=LOG(A + 3> TO EXP<8> STEP SINC7.4) 


I CICLI DO ... LOOP 

Le istruzioni DO ... LOOP permettono di far eseguire al COM¬ 
MODORE PLUS-4 una o piu' azioni, fino a che una condizione non 
venga verificata. 

Se usate come in ES2.12, queste istruzioni provocano la ripeti¬ 
zione infinita delle istruzioni comprese tra DO e LOOP. 


38 



i REM ES2.12 
10 DO 

26 PRINT "CIAO" 
30 LOOP 


Le istruzioni che servono per uscire dal ciclo sono UNTIL, WHILE 
e EXIT. 

UNTIL deve essere usato dopo DO o dopo LOOP e deve essere segui¬ 
to da una condizione, come esemplificato in ES2.13.a e in 
ES2.13.b. 


1 REM ES2.13.A 
10 DO UNTIL ASC*"" 
20 GET AS 
30 LOOP 


I REM ES2.13.B 
10 DO 

20 GET A$ 

30 LOOP UNTIL 

Se la condizione A$<>"" non viene verificata, il COM¬ 
MODORE PLUS- 1 ) continua a ciclare come se non ci fosse UNTIL; ma 
appena la variabile. A$ contiene qualche cosa (perche' e' stato 
premuto un tasto), il COMMODORE PLUS- 1 ) esce dal ciclo e si ferma. 
Con UNTIL, quindi il calcolatore cicla FINO A CHE la condizione 
non sia verificata. La differenza tra il programma ES2.13-a e il 
programma ES2.13-b e' che, mettendo UNTIL dopo LOOP, le istru¬ 
zioni tra DO e LOOP vengono eseguite almeno una volta (come nei 
cicli FOR ... NEXT); usando invece UNTIL dopo DO, le istruzioni 
tra DO e LOOP possono non essere eseguite neanche una volta (se 
si entra nel ciclo quando la condizione e' già' verificata). 

Anche WHILE deve essere usato dopo DO o dopo LOOP e, come UNTIL, 
deve essere seguito da una condizione. A differenza di UNTIL il 
calcolatore cicla MENTRE la condizione che segue WHILE e' vera, 
cioè' fino a quando la condizione diventa falsa. In altre parole 
WHILE COND e' come dire UNTIL NOT COND. 

L'ultima istruzione che serve per uscire dai cicli DO LOOP e’ 
EXIT. Può' essere messa come una qualunque istruzione tra DO e 
LOOP e, quando viene trovata, l’esecuzione del programma salta 
all'istruzione dopo LOOP, cioè' esce dal ciclo. Conviene quindi 
usare l'istruzione EXIT cosi': 

IF COND THEN EXIT 

II suo effetto e' cosi quello di UNTIL con la differenza che può' 
essere messo in un qualunque punto del ciclo: in questo modo il 
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ciclo può' essere abbandonato dopo aver eseguito solo una parte 
delle istruzioni che lo compongono. 

Valgono le stesse norme di nidifìcamento ("inscatolamento") dei 
cicli FOR ... NEXT. 

Puoi usare al massimo 39 cicli DO ... LOOP "inscatolati". 
Nell'Appendice A in Figura A.2 sono riportati gli schemi delle 
istruzioni per il controllo dei cicli. 

I SOTTOPROGRAMMI 

Si può' usare il nome SOTTOPROGRAMMA o SUBROUTINE, con lo stesso 
significato. 

Quando il calcolatore trova l'istruzione GOTO N, va sempli-» 
cernente a eseguire le istruzioni che trova nella linea N. Se 
invece trova l'istruzione GOSUB N, prima di saltare alla linea N, 
memorizza il punto del programma in cui si trova (o memorizza che 
l'istruzione e' stata data in modo diretto). Quando il COM¬ 
MODORE PLUS- 1 ) trova l'istruzione RETURN torna all'istruzione 
immediatamente successiva all'istruzione GOSUB. Questo fatto e' 
molto utile nel caso in cui devi far eseguire molto spesso un 
gruppo di istruzioni. Ad esempio, se devi sistemare i colori del¬ 
lo schermo in piu' punti puoi organizzare il tuo programma come 
segue. 

10 . 

20 ... 


100 GOSUB 1000 
110 . 


230 GOSUB 1000 
240 . 


280 GOSUB 1000 


400 END 

1000 COLOR 0,1 
1010 COLOR 1,7,4 
1020 COLOR 4,1 
1030 RETURN 

L'insieme di istruzioni dalla linea 1000 alla linea 1030 prende 
il nome di SUBROUTINE o SOTTOPROGRAMMA. Le SUBROUTINE sono molto 
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utili anche nei casi in cui devi far eseguire molte istruzioni al 
calcolatore solo se una condizione e' verificata, come in ES2.1 1 ). 

I REM ES2.14 
18 DO 

20 INPUfCOME TI CHIAMI ";AS 
30 IFA$="FINE ,, THEN END 

40 IFA$="PIPPO ,, THENGOSUB1000:ELSEGOSUB2000 
50 LOOP 

1000 COLORO,7,6 
1020 COLORI,2,7 
1030 C0L0R4,7,6 
1040 PRINT"LCIAO “ A$ 

1050 PRIHT"SONO MOLTO CONTENTO DI UEDERTI" 

1060 RETURN 

2000 COLORO,1 

2010 COLORI,5,3 

2020 C0L0R4,1 

2040 PRINT"LiMAI OIA "A$ 

2050 PRINT"OGGI SONO DI MALUMORE" 

2060 RETURN 

In questo programma le ROUTINE sono 2: 

•La prima, dalla linea 1000 alla linea 1060, viene eseguita se la 
stringa ricevuta nella linea 20 e* "PIPPO". 

.La seconda, dalla linea 2000 alla linea 2060, viene eseguita se 
la stringa ricevuta nella linea 20 non e* "PIPPO". 

Come per i cicli, puoi nidificare anche le ROUTINE; e come per i 
cicli DO ... LOOP, il numero massimo e' di 39 ROUTINE "insca¬ 
tolate". L'area usata per memorizzare le linee a cui deve tor¬ 
nare l'esecuzione del programma dopo una SUBROUTINE e' la stessa 
che viene utilizzata per i cicli FOR ... NEXT e per memorizzare 

la prima linea dei cicli DO _ LOOP: quest'area di memoria si 

chiama STACK. 

II numero massimo di SUBROUTINE nidificatili e' dunque 39, se il 
piu' interno di queste non contiene a sua volta uno o piu' cicli 
FOR ... NEXT o DO ... LOOP. Il decimo ciclo FOR ... NEXT può' 
contenere ancora 3 tra GOSUB e DO ... LOOP nidificati. 

I SALTI CALCOLATI 

L'istruzione GOTO provoca un salto senza condizioni in un deter¬ 
minato punto di un programma. L'istruzione IF...THEN...ELSE pro¬ 
voca salti sotto condizione. Esistono due istruzioni: 

ON...GOTO e ON...GOSUB 

che provocano salti in base a un calcolo, cioè' al valore che ha 
al momento dell'esecuzione un'espressione numerica, che in partii 
colare può' essere solo una variabile. 

Esse si scrivono: 

ON esp GOTO n1,n2,n3.ni 
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ON esp GOSUB ni,n2,n3,...,ni 
e agiscono cosi': 

se l'espressione vale 1 il salto avviene a ni, primo numero di 
linea citato dopo GOTO o GOSUB, se essa vale 2 al secondo, se es-< 
sa vale i all'i->esimo. Se il valore dell'espressione risulta 0 o 
supera il numero dei numeri di linea presenti, il programma 
prosegue dalla linea seguente. Se il valore risulta negativo si 
ottiene un messaggio di errore. 

Nel caso di GOSUB viene eseguito il sottoprogramma che inizia in 
ni e al RETURN viene eseguita l'istruzione successiva a 
ON...GOSUB. 

Vediamo un esempio: 

1 REM ES2.15 

10 PRINT'X, SCELTA PROCEDURAMmi" 

15 PRINT" 1: CALCOLO":PRINT" 2: VERIFICA" 

26 PRINT" 3: STAMPA":PRINT" 9: FINE" 

30 GETKEVAS : IFASC"1"ORAS> ,, 3“ANDASO"9"THEN30 

35 ON VAL<A$> GOSUB 100,200,300,900 

100 PRINT100:STOP 

200 PRINT200: STOP 

300 PRINT300: STOP 

900 PRINT900: STOP 

Nel programma ES2.15 viene proposto un menu' di scelta di proce^- 
dure; viene ricevuta la risposta in A$ con GETKEY, essa viene 
controllata e accettata solo se corretta. Alla linea 35 viene 
scelto il sottoprogramma da eseguire in base al valore di A$. Al^ 
le linee 100, 200, 300 e 900 viene stampato un numero corrispon-> 
dente al numero di linea e si ha uno STOP. Sarebbe poco orto-i 
dosso terminare un sottoprogramma con STOP, ma l'esempio vuole 
solo mettere in evidenza l'istruzione ON...GOSUB. 

2.8 PROGRAMMARE LA GRAFICA 

Ci occupiamo qui delle possibilità' grafiche del 
COMMODORE PLUS-^. 

ALTA RISOLUZIONE E MULTICOLORE. 

Al momento dell'accensione, il video può' mostrare caratteri 
alfanumerici e grafici disposti in 1000 possibili CASELLE. Ogni 
casella e' divisa a sua volta in 6i| CASELLINE disposte su 8 righe 
di 8 elementi ciascuna. Le caselline prendono il nome di PIXEL. 
Se in una casella coloriamo opportunamente alcuni pixel, possia^ 
mo ottenere il disegno di una lettera o di un numero o di un sinw 
bolo grafico. Ad esempio, possiamo ottenere la lettera "A" in 
questo modo: 
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Figura 2.3 Immagine lettera A 


I pixel contenuti nel video del COMMODORE PLUS-» 1 ! sono quindi 
64*1000=64000 disposti su 25*8=200 righe di 40*8=320 elementi. 
Quando accendi il calcolatore non puoi controllare i pixel 
individualmente: non puoi decidere se un singolo pixel deve esse-' 
re del colore dello sfondo o no; puoi solo far visualizzare i 
simboli (alfanumerici o grafici) dei due set di caratteri del 
COMMODORE PLUS-'4 nelle 1000 caselle del video. Chiamiamo questo 
modo di visualizzazione MODO TESTO. Oltre al modo testo esistono 
il MODO ALTA RISOLUZIONE e il MODO MULTICOLORE. Nel primo puoi 
controllare ogni pixel del video, nel secondo controlli sola^< 
mente 160 pixel per riga (ogni pixel e’ largo come due pixel in 
alta risoluzione), ma puoi gestire meglio il colore. 


IL PENNINO (0 CURSORE GRAFICO). 

Quando disegni su un foglio di carta, sposti la penna a volte 
premendola sul foglio, altre tenendola sollevata. Anche il tuo 

COMMODORE PLUS-4 usa un immaginario pennino per disegnare. 
All'accensione o dopo un'istruzione di pulizia dello schermo, il 
pennino e' posizionato nell'angolo in alto a sinistra dello 
schermo (il punto 0,0). Puoi, con l'istruzione LOCATE X,Y, 
posizionare il pennino nell'X-esimo punto dell'Y-esima riga, 
tenendolo SOLLEVATO (cioè' senza lasciare la traccia). Tracciane 
do rette, circonferenze, poligoni o altre figure il pennino vie= 
ne spostato e viene lasciato sull’ultimo punto disegnato. Il pen-» 
nino serve come punto sottointeso in alcune istruzioni (ad eseim 
pio si può' tracciare una retta dal pennino ad una altro punto o 
disegnare un rettangolo che abbia come vertice il punto occupato 
dal pennino); inoltre il pennino può' essere usato come origine 
di un sistema di riferimento di coordinate relative. 




SISTEMI DI COORDINATE 


Il modo piu' spontaneo di indicare un punto dello schermo e' 
quello di dire a quale riga e quale colonna appartiene: il punto 
in alto a destra e', per esempio, il punto della colonna 319, ri¬ 
ga 0 (piu' brevemente punto 319,0). E' proprio con la coppia di 
numeri 319,0 che ci si riferisce, normalmente, al punto in alto a 
destra. Questo modo e' sicuramente molto immediato, ma può' esse- 
re utile, a volte, indicare un punto RELATIVAMENTE al pennino. 
Può' essere utile ad esempio voler indicare il punto che sta 
sopra al pennino di 7 punti: per far ciò' basta indicare il pun¬ 
to +0,-7. Il COMMODORE PLUS-4, infatti, capisce che vuoi indi¬ 
care un punto relativamente al cursore grafico, se poni un segno 
+ o -a prima delle coordinate: un + prima del numero di colonna 
indica un punto piu' a destra del pennino; un + prima del numero 
di riga indica un punto piu' in basso del pennino. E possibile 
anche indicare la colonna di un punto in maniera assoluta e la 
riga in maniera relativa (o viceversa). Ad esempio il punto 5,-9 
e' il punto della colonna 5 che appartiene alla nona riga sopra 
il cursore grafico. Un altro modo di indicare un punto relati* 
vamente al pennino e quello di dare una distanza e un angolo, 
cioè' di indicare il punto usando un sistema di COORDINATE 
POLARI. Per far ciò' devi separare le due coordinate con un pun¬ 
to e virgola (anziché' una virgola). L'angolo deve essere misu¬ 
rato in gradi, in senso orario partendo dalla semiretta dal pen¬ 
nino verso l'alto. Ad esempio il punto 30;90 e' trenta punti piu' 
a destra del pennino. 


MODI GRAFICI (L'ISTRUZIONE GRAPHIC) 

Nel modo alta risoluzione e multicolore il calcolatore usa una 
zona di memoria, diversa da quella che usa in modo testo, per 
ricordare il contenuto del video. E' possibile, quindi, passare 
da un modo di visualizzazione all'altro senza perdere il conte¬ 
nuto dei quadri video di testo o di grafica. L'istruzione che 
permette di passare da un modo di visualizzazione all'altro e' 
GRAPHIC: 

GRAPHIC 0 visualizza in modo testo. 

GRAPHIC 1 visualizza in modo alta risoluzione. 

GRAPHIC 2 visualizza i 4/5 in alto in modo alta risoluzione e il 
quinto rimanente in modo testo. 

GRAPHIC 3 visualizza in modo multicolore. 
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GRAPHIC 4 visualizza i 4/5 in alto in modo multicolore e il quin¬ 
to rimanente in modo testo. 

Aggiungendo ",1" a questi comandi ottieni la pulizia dello scher¬ 
mo (grafico se passi a un modo grafico, testo se passi al modo 
testo, entrambi se passi a un modo misto). Puoi pulire lo scher¬ 
mo senza cambiare modo grafico con l'istruzione SCNCLR. 

Se non usi mai un modo di visualizzazione grafico, il COMMO¬ 
DORE PLUS-4 non usa memoria per la pagina grafica; quando pero' 
entri in modo grafico il calcolatore deve "rubare" 12288 byte di 
memoria al BASIC, che rimane con 48381 byte (vedi figura 2.4). Se 
torni al modo testo con l'istruzione GRAPHIC 0, i byte rubati non 
vengono restituiti al BASIC; vengono pero' restituiti tornando al 
modo testo con l’istruzione GRAPHIC CLR. 


$0000 


$ 1000 


$ FDOO 


$ FFFF 


AREA 

SISTEMA 


PROGRAMMA 

E 

VARIABILI 

BASIC 


AREA 

SISTEMA 


NORMALMENTE 


$0000 

$ 1000 
$ 1600 
$ 1C00 
$2000 
$4000 


$ FD00 

$ FFFF 

IN MODO 
GRAFICO 


AREA 

SISTEMA 


MEMORIA 

INUTILIZZATA 


MAPPA LUMINOSITÀ 


MAPPA COLORI 


MAPPA DEI 
PIXEL 


PROGRAMMA 

E 

VARIABILI 

BASIC 


AREA 

SISTEMA 


2048 byte 
1024 byle 
1024 byle 
8192 byle 


48384 byle 


12288 byte 


Il calcolalore provvede a spostare il programma 
quando entra in modo grafico o quando 
trova l'istruzione GRAPHIC CLR. 


Figura 2.4 Uso della memoria nel modo grafico 


I COLORI NEI MODI GRAFICI 

Abbiamo già' visto la funzione dell'istruzione COLOR, ma non 
abbiamo chiarito quali sono le zone 2 e 3- In modo alta risolu¬ 
zione e' consentito disegnare nel colore dello sfondo (0) o nel 
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colore dei caratteri (1); in modo multicolore, invece, hai a 
disposizione altri due colori, che corrispondono alle zone 2 e 3. 
Chiamiamo i colori 1, 2, 3: inchiostro 1, inchiostro 2 e inchio^ 
stro 3. 

Se, con l'istruzione COLOR, cambi il colore dell'inchiostro 3, 
tutti i disegni già' fatti sul video con l'inchiostro 3> cambiai 
no immediatamente colore. Se invece cambi il colore dell'ini 
chiostro 2 (o 1), solo i disegni che d'ora in poi farai con 
l'inchiostro 2 (o 1), avranno un altro colore. 

LE ISTRUZIONI GRAFICHE 

Nel seguito descriveremo una serie di funzioni che agiscono sull 
la pagina grafica. Tutte queste funzioni saranno seguite da una 
serie di parametri, il primo dei quali e’ il colore (O=colore di 
sfondo, 1=inchiostro 1, 2=inchiostro 2, 3=inchiostro 3). Fanno 
eccezione a questa regola le istruzioni SSHAPE e GSHAPE. Spesso 
si possono sottointendere alcuni parametri: per fare questo basta 
non scrivere il parametro, lasciando la punteggiatura richiesta. 
Quando il parametro sottointeso e' un punto devi sottointendere 
le coordinate e il separatore. Se usi istruzioni grafiche mentre 
sei in modo testo e non e' occupata la memoria per la pagina grai 
fica (cioè' non sei mai entrato in modo grafico da quando hai 
acceso il calcolatore oppure hai usato l'istruzione GRAPHICCLR), 
il COMMODORE PLUSi*l ti risponde con il messaggio di errore 
?N0 GRAPHICS AREA ERROR 

Se, invece, la memoria per la pagina grafica e’ stata occupata, 
le istruzioni grafiche, anche se date in modo testo, vengono 
eseguite ugualmente sulla pagina grafica che viene considerata ad 
alta risoluzione (solo che tu non ne vedi l'effetto subito): se 
usi, infatti, il colore 2 o 3 (propri del modo multicolore) il 
COMMODORE PLUSi 1 ) ti risponde con il messaggio di errore 
7ILLEGAL QUANTITY ERROR 

come quando e' in modo alta risoluzione. Questi messaggi di erroi 
re non vengono dati se l'istruzione e' CHAR. 

PUNTI E RETTE (L'ISTRUZIONE DRAW) 

Consideriamo ora una delle piu' versatili istruzioni grafiche del 
COMMODORE PLUSiH: DRAW. Questa istruzione consente di disegnare o 
cancellare punti, rette e linee spezzate. Nella forma completa 
l'istruzione deve essere seguita dal colore, le coordinate di un 
punto, la parola chiave TO e le coordinate di un secondo punto: 
l'istruzione traccia una linea del colore indicato dal primo al 
secondo punto. Ad esempio: 

DRAW 2,0,0 TO 100,100 

disegna una linea del colore dell'inchiostro 2, da 0,0 a 100,100 
DRAW 0,0,0 TO 100,100 
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cancella la linea appena disegnata (disegnandone una del colore 
dello sfondo). 

Omettendo il primo parametro il COMMODORE PLUS-4 assume il colo- 
re uguale all'inchiostro 1: 

DRAW, 1 2 ; 1 00 TO +50.-.20 
disegna una retta di colore 1. 

Omettendo il primo punto il COMMODORE PLUS-4 traccia una retta 
dal cursore grafico al punto indicato. Poiché' il pennino si tro¬ 
va, dopo un DRAW, sul secondo punto, le istruzioni 
L0CATE0,0:DRAW TO 10,10:DRAW TO 10,20:DRAW TO 20,10 
disegnano una linea spezzata di colore 1 i cui vertici sono i 
punti indicati nelle Istruzioni. 

Se, infine, ometti il secondo punto il COMMODORE PLUS-4 disegna 
solo il primo punto (ove lascia il pennino). 

CIRCONFERENZE, ELLISSI E POLIGONI (L'ISTRUZIONE CIRCLE) 

Il modo piu' semplice per usare CIRCLE e' quello in cui indichi 
solo il colore, le coordinate del centro, la lunghezza del rag-, 
gio. 

CIRCLE2,100,100,30 

disegna una circonferenza di colore 2 centrata in 100,100 di rag- 
gio 30. 

Sottointendendo il colore ottieni il colore dell'inchiostro 1, 
sottolntendendo il ,centro la circonferenza viene centrata sul 
pennino; il raggio non può' essere sottointeso. 

Gli altri parametri che possono seguire sono: 

RAGGIO Y: e' il semiasse verticale di un'ellissi il cui semiasse 
orizzontale sia lungo quanto il raggio. Se non c'e’ viene consi¬ 
derato uguale al raggio X. In modo multicolore devi ricordare 
che un pixel in orizzontale ne vale due in verticale. 

ANGOLO DI PARTENZA: normalmente il calcolatore comincia a dise¬ 
gnare la circonferenza dal punto a 0 gradi dalla semiretta verso 
l'alto uscente dal centro e la finisce nel punto a 360 gradi (do¬ 
ve viene lasciato il pennino). Se viene dato questo parametro il 
COMMODORE PLUS-4 comincera' a disegnare la circonferenza da quel¬ 
la posizione. 

ANGOLO FINALE: l'angolo raggiunto il quale il calcolatore smette 
di disegnare la circonferenza. Grazie a questo e al precedente 
parametro puoi disegnare archi di circonferenza. 

ROTAZIONE: 1' angolo (in senso orario) di cui viene ruotata la 

figura: 

CIRCLE 1,100,100,60,30,,,45 

disegna una ellissi il cui asse maggiore e' ruotato di 45 gra¬ 
di. 

Questa operazione viene eseguita male in modo multicolore: infat¬ 
ti il calcolatore non tiene conto della forma asimmetrica dei 
pixel in questo modo, per cui la figura risulta allungata. 
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LATI: volendo disegnare un poligono regolare di N lati devi usa= 
re come ultimo parametro 36 O/N: 

CIRCLE,100,100,50,,,,,360/6 
disegna un esagono regolare. 

L'ISTRUZIONE PAINT 

Se vuoi dipingere un'area, ti basta dare al COMMODORE PLUS-4 
l'istruzione PAINT seguita dal colore che vuoi usare e dalle 
coordinate di un punto contenuto nell'area che vuoi dipingere 
CIRCLE,100,100,50 : PAINT,100.100 
disegna un cerchio pieno. 

Se sottointendi il punto che individua l'area, il calcolatore 
parte a dipingere dal pennino. 

Dopo PAINT il pennino viene lasciato sul punto che individua l'a™ 
rea (punto iniziale). 

Puoi aggiungere un ultimo parametro: 3e vale 1 il calcolatore 
considera che l'area e' delimitata da un qualunque colore diver-» 
so dallo sfondo. Se e' 0 il colore che delimita l'area e' solo il 
colore 1. 


DISEGNARE RETTANGOLI (L'ISTRUZIONE BOX) 

Con l'istruzione BOX puoi disegnare un rettangolo semplicemente 
dando il colore e due vertici opposti del rettangolo. Il colore 
sottointeso e' il colore dell'inchiostro 1, il secondo angolo, se 
sottointeso e' il pennino. 

Dopo questa istruzione il pennino viene lasciato sul secondo 
angolo. 

Possono seguire altri due parametri: il primo indica la rota-> 
zione (in senso orario, espressa in gradi). Se il secondo e' 1 11 
rettangolo viene dipinto. 

SCRIVERE CARATTERI IN MODO GRAFICO (L'ISTRUZIONE CHAR) 

L'istruzione CHAR e' un'istruzione che vale sia in modo grafico 
che in modo testo. Scrive su un video piuttosto che l'altro a 
seconda del modo grafico in cui si trova il calcolatore. Nei mo^ 
di MISTI agisce solo sulla pagina grafica. 

Con questa istruzione puoi scrivere tutte le parole che vuoi nel-> 
la posizione che preferisci. 

CHAR1,10,10,"PIPPO" 

scrive PIPPO in colore 1 partendo dalla colonna 10, riga 10 in 
modo testo, colonna 80, riga 80 in modo alta risoluzione. In mo¬ 
do multicolore i risultati sono poco apprezzabili. 

Puoi aggiungere a CHAR un ulteriore parametro: se e' 1 la scrit-» 
ta viene stampata in campo inverso. 

L'istruzione CHAR accetta anche una serie di CHR$ (separati da +) 
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come stringa. In modo testo vengono stampati normalmente, in mo- 
do grafico i caratteri di controllo vengono scritti come se fos-> 
sero tra virgolette, ma in campo diretto. Il CHR$(255) non e' ti 
ma un simbolo grafico. 

TRASFERIRE PARTI DI SCHERMO GRAFICO (LE ISTRUZIONI SSHAPE E 

GSHAPE) 

Il COMMODORE PLUS-4 ti da' la possibilità' di memorizzare una 
parte rettangolare della pagina grafica in una variabile strin-. 
ga. Per fare ciò' devi usare l'istruzione SSHAPE: tale istru- 
zione deve essere seguita dal nome della variabile in cui si vuo- 
le salvare la zona e dai vertici che delimitano il rettangolo 
(come in BOX). 

Per porre questa sezione in un altro punto della pagina grafica 
devi usare l'istruzione GSHAPE seguita dal nome della variabile 
che contiene la zona salvata con SSHAPE, e le coordinate in cui 
vuoi porre l'angolo in alto a sinistra del rettangolo. 

La grandezza dell' area che puoi memorizzare e' limitata dalla 
lunghezza massima delle stringhe: 255 caratteri. Se vuoi calco-- 
lare la lunghezza della stringa che conterrà’ l'area devi usare 
le formule: 

in alta risoluzione: 

INT((ABS(XI-X2)+1)/8+.99)*(ABS(Y1-Y2)+1)+4 
in multicolore: 

INT((ABS(X1-X2)+1)/4+.99)*(ABS(Y1-Y2)+1)+4 

Dove X1,Y1,X2,Y2 sono rispettivamente la prima e la seconda 
coordinata del primo angolo e la prima e la seconda coordinata 
del secondo angolo. 

GSHAPE può' essere seguita da un ultimo parametro: il modo di 
porre sul video la zona salvata: 

0 pone la figura come e', 

1 la pone in campo inverso, 

2 la pone facendo la OR con l'area, 

3 la pone facendo la AND con l'area, 

4 la pone facendo la XOR con l'area. 

I modi 2, 3 e 4 possono risultare poco chiari. 

Vediamo gli effetti su una pagina ALTA RISOLUZIONE: 
modo 2, rimane lo sfondo sulla parte di colore 0 della figura, 

modo 3. disegna solo le zone in cui sia lo sfondo che la figura 

sono di colore 1 , 

modo 4, disegna in colore 1 su sfondo di colore 0 e in colore 0 
su sfondo di colore 1. 
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E gli effetti' su pagina MULTICOLORE: 

modo 1 si scambiano colore le parti di colore 0 e 3 e quelle di 
colore 1 e 2, 
modi 2, 3 e 1) : 

CS CF M2 M3 Mi) 

0 0 0 0 0 

0 1 10 1 

0 2 2 0 2 

0 3 3 0 3 

10 10 1 

11 110 

1 2 3 0 3 

13 3 12 

2 0 2 0 2 

2 13 0 3 

2 2 2 2 0 

2 3 3 2 1 

3 0 3 0 3 

3 1 3 12 

3 2 3 2 1 

3 3 3 3 0 


(se CS e* il colore dello sfondo in un punto e CF e’ il colore 
della figura nello stesso punto, allora M2 e’ il colore che vie^ 
ne visualizzato in quel punto ponendo l'immagine sullo sfondo col 
modo 2, M3 col modo 3 e M4 col modo 4). 

FUNZIONI GRAFICHE 

Il COMMODORE PLUS-'4 possiede 4 funzioni riguardanti grafica e 
colore: RGR, RCLR, RLUM, RDOT. 

RGR, il cui argomento può' essere qualunque, torna il modo gra¬ 
fico in cui e' il calcolatore (ricordiamo che il modo grafico si 
cambia con l'istruzione GRAPHIC). 

RCLR torna il colore della zona che viene passata come parametro 
alla funzione: 

RCLR (0) torna il colore dello sfondo, 

RCLR (1) torna il colore dell'inchiostro 1, 

RCLR (2) torna il colore dell'inchiostro 2, 

RCLR (3) torna il colore dell'inchiostro 3, 

RCLR (4) torna il colore del bordo. 

RLUM torna la luminosità' della zona che viene passata come para¬ 
metro alla funzione: 
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RLUM (0) torna la luminosità' dello sfondo, 

RLUM (1) torna la luminosità' dell'inchiostro 1, 

RLUM (2) torna la luminosità' dell'inchiostro 2, 

RLUM (3) torna la luminosità' dell'inchiostro 3, 

RLUM (4) torna la luminosità' del bordo. 

RDOT fornisce informazioni sul pennino: 

RDOT (0) torna la colonna su cui e' posizionato il pennino, 

RDOT (1) torna la riga su cui e' posizionato il pennino, 

RDOT (2) torna il colore del punto su cui si trova il pennino. 

Ecco il listato di un programma che usa la funzione RDOT. 

i REM ESZ.16 

5 COLORO,i:COLOR4,i:YV=i:NC=40:C=8:TRAP500 
18 GRAPHICi,1 
20 GETKEYAS 

30 IFA$=CHR$<13>THENXX=0:VY=VV+1:GOTO20 
40 IFAS=CHR$<20>THENGOSUB300: GOTO20 
SO IF A$ = CHR$(27)THENGOSUB400:GOTO20 
60 GOSIIB200 

70 XX=XX+C:IFXX>319-CTHENXX=0:VY=VY+1 
80 GOTO20 

200 COLORI,1 :CHAR,0,0,A$: COLORI,7,7 

210 FORX=0TOC-i 

220 FORV=0TO7 

236 L0CATEX*8/'C,Y 

240 DRAMRDOT(2),XX+X,VY»8+V 

250 HEXTV.X 

260 RETURN 

3O0 XX=XX-C:YY=YY*<XX<0):XX=XX-32O*(XXC0) 

310 A$=" M :GOSUB2O0:RETURN 

400 GETKEYA$,B$:NC=VAL<A$>*10+UAL<B$> 

410 C=320XNC:RETURN 

500 FORX=0TO7:P0KEL8192+X),0 :NEXTX:GRAPHIC0:SCNC 
LR 


Lo scopo di questo programma e' quello di scrivere sulla pagina 
grafica caratteri di diversa larghezza con il seguente metodo: 
viene stampato, nell'angolo superiore sinistro, in nero, il 
carattere che si vuole allargare o rimpicciolire; la funzione 
RDOT sa comunque riconoscere se i punti che formano il carattere 
sono di inchiostro 1 o di sfondo; una routine riproduce quindi, 
punto per punto, in blu, nell'attuale posizione del cursore la 
lettera compressa o allargata. Per decidere quanti caratteri si 
vogliono visualizzare su ogni riga basta premere il tasto ESC 
seguito dal numero di caratteri per riga (due cifre). Il program¬ 
ma riconosce ed esegue DEL e RETURN. 

Vediamo ora, linea per linea, come funziona il programma: 
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.0: schermo e bordo neri; riga sulla quale verrà' stampato il 
prossimo carattere (YY) = 1; numero di caratteri per linea (NC) = 
40; numero di pixel per ogni carattere (C) = 320/40 = 8. Per TRAP 
vedi Paragrafo 3.8. In questo caso manda l'esecuzione del 
programma alla linea 500 quando premi RUN/STOP. 

.10: entra in alta risoluzione e pulisce lo schermo. 

Linea 20: accetta un carattere da tastiera e lo pone nella variai 
bile A$. 

.30: se il tasto premuto e' RETURN (=CHR$(13)) va a capo: cioè’ 
incrementa la riga e pone = 0 la colonna nella quale verrà' stam¬ 
pato il prossimo carattere (XX indica il primo pixel da cui 
dovrà' partire la stampa del prossimo carattere). Torna quindi 
alla linea 20 per chiedere il prossimo carattere. 

.40: se il tasto premuto e' DEL (=CHR$(20)) esegue la subroui 
tine in 300 che cancella il carattere precedente. Torna quindi 
alla linea 20. 

.50: se il tasto premuto e' ESC (=CHR$(27)) esegue la subroui 
tine in 400 che accetta un nuovo numero di colonne. Torna quindi 
alla linea 20. 

.60: esegue la routine in 200 che stampa un carattere sullo 
schermo alta risoluzione. 

.70: incrementa di C pixel il prossimo punto di stampa. Control^ 
la che il prossimo carattere non ecceda la linea (XX>319+C): se 
ciò' avviene va a capo. 

.80: torna alla linea 20 per ricevere il prossimo carattere. 
SUBR0UTINE DI STAMPA 

.200: scrive in alto a sinistra, in nero, il carattere che si 
vuole stampare e rimette blu il colore del cursore. 

.210: inizializza il ciclo dei punti orizzontali del carattere 
(se il carattere e' largo 5 pixel il ciclo verrà' ripetuto 5 vol¬ 
te) . 

.220: inizializza il ciclo dei punti verticali. 

.230: pone il pennino sul punto del carattere che si vuole valui 
tare. 

.240: disegna un punto del colore che si legge sul carattere 
originale nel posto del carattere modificato. 

.250: chiude i due cicli. 

.260: fine della subroutine. 

SUBR0UTINE PER DEL 

.300: decrementa l'indicatore di colonna di tanti pixel quanto 
e' la larghezza attuale di un carattere; se cosi' facendo il 
numero diventa minore di 0 viene decrementato il numero di linea 
e aggiunto 320 al numero di colonna. 

.310: servendosi della subroutine in 200 stampa uno spazio che 
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cancella il carattere indesiderato. 


SUBROUTINE PER ESC 

.400: accetta due caratteri da tastiera e li considera un nume-> 
ro di due cifre: pone il numero di colonne (NC) pari al valore 
calcolato. 

.410: pone la larghezza in pixel dei caratteri (C) = 320/NC. 
SUBROUTINE PER STOP 

.500: cancella la prima posizione carattere, torna in modo 
testo, pulisce lo schermo e il programma si arresta. 

2.9 PROGRAMMARE L'ANIMAZIONE 

Come per 1 cartoni animati, la televisione e il cinema, il movi-> 
mento che vedi nei videogiochi (o comunque il movimento generato 
da un calcolatore) non e' vero movimento, ma una sequenza di 
figure statiche ognuna delle quali differisce di poco dalla 
precedente. Un grossolano esempio su come imitare un movimento 
col calcolatore e' dato dal programma ES2.17: 

1 REM ES2.17 
10 PRIMTCHR$(147) 

20 FORI=0TO38:CHAR,1,0,“ • " 

30 FORJ=1T030 
40 NEXTJ, I 
50 RUN 


Questo programma disegna, in uno schermo vuoto, una pallina, ogni 
volta una posizione piu' a destra della precedente. In questo mo-* 
do sembra che la pallina corra verso destra. Ecco la spiegazione 
linea per linea del programma: 

.10: pulisce lo schermo. 

.20-40: per 39 volte stampa, ogni volta un carattere piu' a 
destra, uno spazio e una pallina. Lo spazio ha la funzione di 
cancellare la vecchia pallina. Il ciclo a vuoto di J serve a 
rallentare l'esecuzione. In questo modo visualizziamo, abbastan-^ 
za rapidamente, una dopo l'altra delle figure che differiscono di 
poco dalle precedenti. 

.50: ricomincia. 

Il motivo per cui il risultato di questo programma non e' molto 
soddisfacente e' che la differenza tra un'immagine e l'altra e' 
troppo grande in rapporto alla grandezza dell'oggetto che si muo^ 
ve. 
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UN ESEMPIO DI MOVIMENTO 


Proviamo ora a costruire un movimento che ci soddisfi di piu': 

i REM ES2.18 

10 DIMA$<2):PRINTCHRS<147> 

20 A$ < 0 A$ < 1 > < 2 >="'■•■' ” 

30 FORI=0TO2:CHAR,0,0,ftS(I) 

40 FORJ=0TO90NEXTJ,I GOTO30 

Con questo esempio imitiamo il battere delle ali di un ucceli 
lino. Il risultato, questa volta, e' un po' piu' bello perche' il 
movimento delle ali e' di qualche pixel, mentre prima la pallina 
si muoveva di un carattere alla volta. Vediamo come funziona il 
programma: 

.10-20: memorizza le immagini necessarie nel vettore di strini 
ghe A$ e pulisce lo schermo. 

•30-40: stampa una dopo l'altra le tre immagini nello stesso 
posto. Il ciclo a vuoto di J rallenta, il programma prosegue fi¬ 
no a quando non premi STOP. 

Per completare questo programma possiamo far VOLARE l'ucceli 
lino: 

i REM ES2.19 

10 DIMA$<2):PRINTCHR$<147> 

20 A$<0>="/*V:AS<1> : fl$ < 2 > =" '■ 

30 V=25:FORX=0T024:V=V-I 
40 GOSUB100 
50 MEXTX 
60 RUN 

100 PRINTCHR$<147> 

110 FORI=0TO2:CH0R,X, 

120 FORJ=1TO50 
130 NEXTJ,I 
140 RETURN 

Combinando il movimento delle ali a quello dell'uccellino si 
ottiene un risultato abbastanza buono. Il programma funziona 
cosi' : 

.10-20: come prima. 

.30: posizione verticale dell'uccellino (Y) = 25 (piu' in basso 
possibile). Inizializza un ciclo da 0 a 24, la cui variabile 
indice e' X (posizione orizzontale), che decrementa la posizione 
verticale. 

.40: fa volare l'uccellino da una casella alla casella immedia-’ 
tamente sopra a destra. 

.50: chiude il ciclo. 
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.60: lancia nuovamente il programma. 

ROUTINE DI MOVIMENTO 

.100-140: avolgono la funzione del programma precedente con la 
differenza che la posizione in cui l'uccellino sbatte le ali e' 
data dai valori di X e Y. 

2.10 PROGRAMMARE IL SUONO 

Il COMMODORE PLUS^>4 possiede due comandi diretti alla gestione 
del suono. Le possibilta' sonore del COMMODORE PLUS=4 sono 
abbastanza limitate, poiché' vi sono solamente due generatori 
sonori, e questi generatori producono solo suoni a onda quadra o 
a onda casuale (rumore bianco); inoltre non vi sono filtri ne' 
generatori di inviluppo. L'assenza di tutte queste potenzialità' 
e' forse un handicap, ma e' senza dubbio vantaggioso per quello 
che riguarda la facilita' d'uso. 

I due comandi che gestiscono il suono sono: 

VOL e SOUND. 

Con essi e' assai semplice generare suoni ed effetti sonori. 

VOL deve essere seguito da un numero compreso tra 0 e 8: 

VOL 0 = volume a zero 
VOL 8 = volume al massimo 

Per generare un suopo occorre anche specificarne la forma d'on-i 
da, la frequenza e la durata. Tutti questi parametri devono esse-= 
re forniti all'istruzione SOUND. 

SOUND V,F,D 

produce una nota musicale col generatore V, la frequenza dipen¬ 
dente da F, e della durata di D sessantesimi di secondo. 

-V e' un numero che può' valere 1, 2 o 3. Se vale 1 il suono vie-> 
ne generato dal generatore 1, sempre con onda quadra, se vale 2 
viene generato dal generatore 2 con onda quadra e se V=3 il auo-= 
no viene sempre generato dal generatore 2 ma con onda casuale 
(rumore bianco). Ovviamente le voci 2 e 3 non possono suonare 
insieme, mentre possono suonare assieme voce 1 e voce 2 o voce 1 
e voce 3* 

-F e' un numero da cui dipende la frequenza, a cui e' legato dal-: 
la seguente espressione: 

F=1 024--( 111 840.45/Hertz) 

Nell'Appendice H trovi i valori del parametro F per tutte le no^ 
te musicali. Se hai orecchio puoi notare una certa stonatura nei 
suoni, dovuta al fatto che F e' un numero intero, che quindi e' 
generalmente approssimato. 

■’D e' un numero compreso tra 0 e 65535 che esprime la durata del-* 
la nota in sessantesimi di secondo. 

Segue il programma ES2.20 che suona le note contenute in linee 
DATA. 
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1 REM ES2.20 
5 DIMMT <75> 

18 RD=2t<l/12> 

20 F=7040 

30 F0RI=73T0iSTEP-l 
40 MT<I>=IHT<1024.5-111848.45/F> 

60 F=F/RD 
70 MEXT 
85 U0L8 
90 DO 

100 READA•IFA=0THENEXIT 

110 SOUND1,MT(A>,5:FORI=1TO100:NEXT 

126 LOOP 

9000 DATAi7,i5,i.7,±3,17,12,i7,i8,i7,8,.17 
9002 00106,17,15,13,15,15,13.15,12 

9005 DATA15,10,15,8,15,6,15,5,15,13,12,13 

9006 DATA13,12,13,10,13,8,13,6,13,5,13,4,13 

9007 DATA12,18,12,12 

9010 DATA10,12,9,12,7,12,5,12,3,12,1,12 
9020 DATA10,8,10,0 

COMMENTO A ES2.20 

.0-70: viene definito il vettore MT che contiene tutti i valori 
di F in base al numero di nota da suonare. Partendo da una 
frequenza di 7040 Hertz calcoliamo il valore da porre nel vetto-> 
re, e una per volta ricaviamo il valore della nota piu' bassa 
dividendo per RD che assume il valore della radice dodicesima di 
due. In questo programma la variabile F esprime la frequenza in 
Hertz della nota di cui vogliamo calcolare l’argomento per SOUND. 

.90-'120: ciclo in cui vengono letti i dati dalle linee DATA, e 
sono usati come indici del vettore MT. Il numero esprime la nota 
musicale secondo la seguente tabella: 


DO 

HO 

28 

16 

4 

DO# 

41 

29 

17 

5 

RE 

42 

30 

18 

6 

RE# 

43 

31 

19 • 

7 

MI 

44 

32 

20 

8 

FA 

45 

33 

21 

9 

FA# 

46 

34 

22 

10 

SOL 

47 

35 

23 

11 

SOL# 

48 

36 

24 

12 

LA 

49 

37 

25 

13 

LA# 

50 

38 

26 

14 

SI 

51 

39 

27 

15 

OTTAVA 

4 

3 

2 

1 


Il vettore MT ha 76 elementi. Ti consigliamo di non usare gli 
elementi piu’ alti, perche’ rappresentano frequenze un po’ tropn 
po alte per il generatore di suoni. 
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CAPITOLO 3 


OPERAZIONI AVANZATE IN BASIC 


3.1 LE VARIABILI CON INDICE 

Fino ad ora ci siamo occupati di variabili singole; nella 
programmazione risulta spesso utile poter riferire con lo stesso 
nome un GRUPPO DI VARIABILI. Sono disponibili per questo le 
VARIABILI CON INDICE, chiamate anche MATRICI o VETTORI ( ARRAY in 
inglese). Si tratta di una struttura di dati nella quale si usa 

10 stesso nome per rappresentare un gruppo di variabili; per 
identificare un elemento del gruppo si usano uno o piu' numeri, 
detti indici, che forniscono la posizione di quell'elemento nel 
gruppo. 

Vediamo un esempio: consideriamo un vettore di variabili di tipo 
numerico, di nome A. Il primo elemento di tale gruppo si chiama 
A(0), e ha le stesse proprietà' di ogni altra variabile di tipo 
numerico. Il secondo elemento si chiama A(1), e il suo valore e' 
completamente indipendente dal valore di A(0) e di tutti gli 
altri elementi del vettore. A(0) e A(1) sono due variabili diver¬ 
se. Prova a eseguire le seguenti linee: 

A(0)=10:A(1)=3-14 
PRINT A(0);A(1 ) 

11 calcolatore stampa 10 e 3-1*1. Un'osservazione, a questo pun¬ 
to, potrebbe essere questa: "Che cos'hanno di diverso i vettori 
dalle variabili normali? Anche la variabile A0 e' completamente 
separata da Al, e si risparmia di scrivere le parentesi!". La 
differenza c'e', ed e' importante. L'indice contenuto tra paren¬ 
tesi infatti può' essere un numero o una variabile numerica, di 
cui viene considerata solo la parte intera: 

K=1:PRINT A(K) 

stampa ancora il valore di A(1), mentre: 

K=1:PRINT AK 

non stampa il valore della variabile Al, ma quello della varia¬ 
bile AK. 

Esistono sul COMMODORE PLUS-4 tre tipi diversi di variabili con 
indice: 
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.MATRICI di variabili di tipo REALE (A) 

.MATRICI di variabili di tipo INTERO (A?) 

.MATRICI di variabili di tipo STRINGA (A$) 

Una matrice può' avere piu' di un indice, ad esempio B(3,2), che 
e' diverso da B(2,3), ha due indici. Non esistono limiti sul 
numero di indici che può' avere una matrice, tranne il fatto che 
una matrice con molti indici occupa molta memoria. 

Nel seguito useremo il nome MATRICE, che e' il piu' generale; di 
norma il nome VETTORE viene usato per matrici con un solo indi- 
ce. A volte usiamo anche il termine inglese ARRAY. 

Nel BASIC 3.5 del COMMODORE PLUS-4 gli indici iniziano dal valo¬ 
re 0, cioè' il primo elemento del gruppo corrisponde al valore 0 
degli indici. L'uso di piu' indici consente di strutturare meglio 
il gruppo di variabili; per esempio una tabella di dati viene 
chiaramente definita con variabili a due indici, l'indice di 
riga, il primo, e l'indice di colonna, il secondo. 

Quando si usano le matrici, bisogna definire alcuni parametri: 

. il nome della matrice, 

. il tipo di variabile, 

. il numero di indici che individuano un elemento, 

. il massimo valore che può' raggiungere ogni indice, cioè' 
l'estensione del gruppo. 

Tutte queste informazioni devono essere fornite al calcolatore 
prima di usare gli elementi della matrice, attraverso l'istru¬ 
zione DIM, che e' l'istruzione di definizione delle matrici. 
Quando noi eseguiamo: 

DIM A( 1),7,9) 

informiamo il calcolatore che vogliamo definire una matrice di 
nome A, e che ha come elementi numeri REALI. Inoltre specifi¬ 
chiamo che la matrice ha tre indici (inseriamo infatti tre nume¬ 
ri nelle parentesi, separati da virgole). Infine specifichiamo 
che useremo: 

. per il primo indice i valori da 0 a 4, 

. per il secondo valori da 0 a 7, 

. per il terzo valori da 0 a 9. 

Se nel programma usi per gli indici valori superiori a quelli 
definiti, o un numero di indici diverso da quello specificato, 
ottieni il messaggio di errore: BAD SUBSCRIPT. 

Per definire la matrice A di interi, con 100 elementi, scrive¬ 
remo: 

DIM A?(99) 

Il vantaggio principale nell'usare matrici di tipo INTERO anzi¬ 
ché' REALE e' che ogni elemento INTERO occupa 2 BYTE di memoria, 
mentre un elemento REALE occupa 5 BYTE. 

Per definire il vettore QS di STRINGHE, con 65 elementi, scrive- 
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remo: 

DIM QS$(6H) 

L'occupazione in memoria di un vettore di questo tipo non e' fis¬ 
sa: ogni elemento occupa 3 BYTE, piu* la lunghezza della strin-> 
ga. Fai attenzione quando usi grosse matrici di stringhe, per^ 
che' potresti avere dei problemi di memoria. 

Una volta dimensionata, una matrice non può' piu' essere cancel¬ 
lata, se non con l'istruzione CLR, che cancella tutte le varia¬ 
bili: al massimo si può' azzerarne il valore, ma non si può' 
liberare completamente la memoria che occupa. Non e' neanche 
possibile cambiare le dimensioni di un vettore senza cancellare 
tutte le variabili (con CLR), altrimenti viene emesso il messag¬ 
gio REDIM'D ARRAY (matrice ridimensionata). 

Se si usa una matrice prima di averla dimensionata, come abbiamo 
fatto noi all'inizio di questo paragrafo, il calcolatore la 
dimensiona automaticamente a 10 per ogni dimensione. Un succes¬ 
sivo dimensionamento produce ovviamente il messaggio REDIM'D 
ARRAY. 

Le variabili con indice sono un elemento base della program¬ 
mazione; esse consentono di utilizzare in pieno le possibilità' 
offerte dalle istruzioni per la gestione dei cicli 

Gli indici possono essere numeri interi o reali, variabili nume¬ 
riche intere o reali; di essi viene considerata solo la parte 
intera. 


3.2 IL TRATTAMENTO DELLE STRINGHE 


Un'interessante operazione che si può' eseguire sulle variabili 
di tipo STRINGA e' quella del concatenamento: si può' cioè' for¬ 
mare una stringa che contiene i caratteri di altre, due o piu', 
stringhe, poste una dopo l’altra. L'operatore che concatena le 
stringhe e' il "+". 

Vediamo un esempio: 

A$="CIA0":B$="COMMODORE":C$=A$+B$ 

PRINT C$ 

Il calcolatore stampa il contenuto della stringa C$, cioè' 
CIA0C0MM0D0RE. 

Non esistono particolari precauzioni da usare nel concatenare le 
stringhe: bisogna pero' fare attenzione affinché' la nuova strin¬ 
ga non superi i 255 caratteri, caso in cui viene emesso il 
messaggio d'errore STRING TOO LONG. 

Il concatenamento delle stringhe deve essere usato per avere in 
memoria una stringa piu' lunga di 88 caratteri; infatti con 
l'istruzione INPUT non si può' leggere un dato stringa che supe¬ 
ri 88 caratteri. 
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Trattiamo ora le FUNZIONI del BASIC che lavorano sulle stringhe, 
cioè' quelle funzioni che hanno come argomento una stringa o che 
danno come risultato una stringa. 

Le variabili di tipo stringa contengono una sequenza di carat¬ 
teri, che sono conservati nella memoria del calcolatore come 
numeri; ad ogni carattere corrisponde un codice numerico, il 
codice ASCII. Il codice del carattere A, ad esempio, e' 65. Il 
codice del carattere RETURN, e' 13. Tutti i caratteri che il 
calcolatore riconosce, anche quelli di controllo, hanno un codi¬ 
ce. Nell'Appendice C sono descritti i codici di tutti i carat¬ 
teri . 

FUNZIONE ASC 

La funzione fornisce un numero intero, che e' il valore del 
codice ASCII del primo carattere della stringa specificata; si 
scrive: 

ASC(stringa), dove stringa può* essere una costante tra 
virgolette o una variabile. 

Se la stringa e' vuota la funzione ritorna 0. 

Prova a digitare; 

PRINT ASC("ABCD") 

e il calcolatore stampa il numero 65, che e' il codice ASCII del¬ 
la lettera A, che e' il primo carattere che compone la stringa 
ABCD. 

FUNZIONE CHR$ 

Questa funzione si può' considerare l'inverso della funzione ASC. 
Infatti essa ritorna una stringa, il cui codice ASCII e' quello 
della variabile o costante numerica compresa tra parentesi. Ad 
esempio puoi digitare: 

PRINT CHR$(65) 

e il calcolatore stampa una "A". 

Questa funzione e' molto importante, poiché' permette di stam¬ 
pare tutti i caratteri, anche quelli che non e' possibile 
comprendere tra virgolette, come ad esempio ESC e RETURN. L'argo¬ 
mento può' variare tra 0 e 255 compresi. 

FUNZIONE LEN 

Questa funzione ha come argomento una stringa, costante o varia¬ 
bile, e fornisce in uscita un valore intero, che ne esprime la 
lunghezza. Ad esempio, la stringa "CIAO" e' lunga 4 caratteri, e 
1'istruzione: 

PRINT LEN ("CIAO") 
stampa il numero 

Anche gli spazi bianchi sono considerati ovviamente caratteri, 
come anche tutti i caratteri di controllo e di punteggiatura 
compresi nella stringa. 
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FUNZIONE LEFT$ 

Questa funzione ha due argomenti: la stringa su cui deve operare 
e un numero intero. Left significa sinistra, e LEFT$ fornisce una 
stringa, che e' la parte sinistra della strìnga specificata, del¬ 
la lunghezza espressa dal numero specificato. Esempio: 

PRINT LEFT$ ("CIAO COMMODORE",?) 

stampa CIAO CO, cioè' i primi 7 caratteri a partire da sinistra 
della stringa "CIAO COMMODORE". Non esistono limitazioni sulla 
stringa: anche una stringa vuota e' accettata da questa funzio¬ 
ne; l'unica limitazione sul numero intero e' che non deve essere 
negativo, e non deve superare 255. 

FUNZIONE RIGHT$ 

Questa funzione e' sorella della precedente: right vuol dire 
destra, e RIGHT$ ritorna la parte destra della stringa speci¬ 
ficata, della lunghezza espressa dal numero specificato. La 
sintassi e' la stessa di LEFT$. Esempio: 

PRINT RIGHT$ ("CIAO COMMODORE",4) 

stampa DORÈ, cioè' la parte destra della stringa "CIAO 
COMMODORE", della lunghezza di 4 caratteri. Le limitazioni sui 
parametri sono le stesse della funzione LEFT$. 

FUNZIONE MID$ 

Questa funzione mette insieme le due precedenti, LEFT$ e RIGHT$. 
Essa lavora con 3 argomenti: una stringa e due numeri interi. La 
stringa e' quella 'su cui operare, e i due numeri indicano 
rispettivamente la posizione da cui partire (1=primo carattere da 
sinistra, 2=secondo, ecc.) e la lunghezza della nuova stringa. 
Esempio: 

PRINT MID$("CIAO COMMODORE",9,4) 

stampa MODO, che e’ la stringa che parte dal nono carattere del-- 
la stringa specificata, ed e' lunga 4 caratteri. La stringa, 
anche per MID$, può' essere una qualunque stringa riconosciuta 
dal COMMODORE PLUS-4, il numero che indica la posizione di 
partenza deve essere compreso tra 1 e 255, il numero che esprime 
la lunghezza della stringa deve essere compreso tra 0 e 255. 
Questa funzione può' essere usata anche in altro modo, come pseu- 
do variabile, e serve per modificare,una parte di una stringa. 
Esempio: 

A$="GATTO BRUTTO" 

MID$(A$,7,6)="CARINO" 

PRINT A$ 

stampa: GATTO CARINO 

cioè' e' stato modificato il contenuto precedente di A$. 

FUNZIONE INSTR 

Questa funzione lavora su 2 parametri: due stringhe. La funzione 
cerca la seconda all'interno della prima stringa, se la trova, 
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ritorna un numero, che indica a partire da quale posizione la 
seconda stringa e' contenuta nella prima. Se la seconda stringa 
non e' contenuta nella prima, il numero e' zero. Esempio: 

PRINT INSTR("COMMODORE PLUS-4"."MODO") 

stampa 4, poiché' la stringa "MODO" parte dal quarto carattere 
della stringa "COMMODORE PLUS-4". 

A questa funzione si può' anche fornire un altro parametro, un 
numero che esprime da quale carattere partire nella ricerca. 
Vediamo un esempio: 

PRINT INSTR("COMMODORE PLUS-4","0") 
stampa 2. 

PRINT INSTR("COMMODORE PLUS-4","0",3) 

stampa 5, infatti la ricerca e' iniziata dal terzo carattere, e 
il quinto carattere e' una 0. Come hai notato, la ricerca viene 
fatta da sinistra verso destra. 

FUNZIONE VAL 

Questa funzione serve per passare da una variabile di tipo strin¬ 
ga, a contenuto numerico, a una di tipo numerico: e' chiaro che 
il calcolatore rifiuta di applicare funzioni matematiche a varia¬ 
bili di tipo STRINGA, anche se queste contengono numeri. La 
funzione VAL ritorna un numero, che esprime il valore numerico 
della stringa specificata. Esempio: 

PRINT VAL("16")+1 

stampa 17, che e' 16+1. Vi sono alcune regole, riguardo a questa 
funzione, che bisogna conoscere: 

. Se la stringa inizia con un carattere non numerico, il suo 
valore e' zero: 

A=5 :PRINT VAL ("A") 

stampa 0 anche se la variabile A vale 5. 

. La funzione VAL non effettua operazioni matematiche sulla 
stringa: 

PRINT VAL("1+1") 

non stampa 2, ma 1 . VAL infatti tiene conto solo dei caratteri 
numerici, cosi' come sono, fino al primo carattere non nume¬ 
rico. 

Sono considerate stringhe numeriche quelle contenenti un qualun¬ 
que numero con segno, anche espresso in formato esponenziale. 
Questa funzione e' utile nelle operazioni di INPUT dove si vuole 
ricevere un numero, per evitare che il BASIC invii un messaggio 
d'errore quando viene introdotta una stringa anziché' un nume¬ 
ro: 

INPUT A$:A=VAL(A$) 

e' meglio di:INPUT A; la conversione si ferma al primo carattere 
non numerico incontrato. 

FUNZIONE STR$ 

Questa funzione si può' considerare l'inverso della funzione VAL, 
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infatti riceve una variabile di tipo numerico, e ne ritorna una 
di tipo stringa. Può' essere utile per applicare le funzioni 
LEFT$, MID$, RIGHT$, CHAR, alle variabili numeriche. Ad esem¬ 
pio: 

CHAR 1,10,20,STR$ ( 1 234 ) 

stampa la scritta 1234 in posizione 10,20, e non emette il 
messaggio TYPE MISMATCH, proprio perche' STR$ ritorna una varia¬ 
bile di tipo stringa. 


3-3 LETTURA DATI DALL'INTERNO DEL PROGRAMMA 

Il programma riceve i dati dall'esterno per mezzo dell'istruzione 
INPUT, oppure, carattere per carattere, con l'istruzione GET. A 
volte e' necessario incorporare in un programma blocchi di dati 
costanti; ogni singolo dato può' essere assegnato a una varia¬ 
bile, ma devi scrivere molte istruzioni. 

L’istruzione DATA si usa per inserire piu' comodamente dati nel 
programma. Per dati si intendono delle costanti, numeriche o 
stringhe, separate da virgole. Tutti i tipi di costanti usati dal 
COMMODORE PLUS-4 possono essere contenuti in linee DATA: numeri 
interi, reali in virgola fissa e in virgola mobile, stringhe. 
DATA e' un'istruzione che ha senso usare solo da programma, anche 
se in modo immediato non produce messaggio di errore. 

I dati che sono archiviati in linee DATA vengono conservati nel¬ 
la memoria nell'ordine di comparizione delle relative linee DATA, 
che possono trovarsi ovunque in un programma. Per poter essere 
utilizzati essi devono essere trasferiti in variabili del 
programma, cioè' letti con l'istruzione READ. Esempio di alcune 
linee DATA: 

1000 DATA 1,2,3,5,7,11,13,17,19:REM NUMERI PRIMI 

1000 DATA A,E,1,0,U: REM VOCALI 

1000 DATA "*** *** ": REM SEGNI GRAFICI 

1000 DATAI,A,2,B,3,C:REM UN NUMERO E UNA LETTERA 

Anche per le linee DATA, come per la funzione VAL, non sono vali¬ 
de le espressioni matematiche. Le stringhe possono non essere 
comprese tra virgolette, a patto che non contengano caratteri di 
controllo o di interpunzione. Se invece sono comprese tra virgo- 
lette, possono contenere tutti i caratteri di controllo che e' 
consentito racchiudere tra virgolette. Una linea DATA, quando 
viene incontrata nel programma, viene saltata, come l'istruzione 
REM. A differenza di quest'ultima, pero', un successivo comando 
sulla stessa linea viene eseguito, anziché' essere ignorato. 
Esempio: 

1000 DATA 1,2,3:PRINT "LINEA 1000" 
stampa LINEA 1000 quando viene eseguito. 

Naturalmente, a meno di non usare trucchi particolari, le linee 



DATA devono essere introdotte in fase di stesura del programma, e 
non possono essere introdotte in fase di esecuzione. Per archi¬ 
viare i dati che sono risultato di elaborazione non si può' usa¬ 
re l’istruzione DATA, ma si deve ricorrere ai FILE (archìvi) su 
nastro o su disco. 

L'istruzione READ e' sorella di DATA, infatti e' quella che 
permette di leggere i dati che sono archiviati in linee DATA. I 
dati vengono letti in sequenza, uno dopo l'altro. La prima volta 
che viene incontrata un'istruzione READ, viene letto il primo da¬ 
to presente nella prima linea DATA. La seconda volta, viene let¬ 
to il secondo dato, e cosi' via. L'istruzione READ deve essere 
seguita dal nome di una o piu' variabili (che concordino con il 
tipo delle costanti da leggere): ogni variabile, dopo 
l'esecuzione dell'istruzione, conterrà' il valore letto dalle 
linee DATA. Prova il seguente esempio: 

1000 DATA 1,A,2,B,3.C,4,D 

e poi, in modo diretto, esegui per 5 volte la seguente linea: 
READA,A$:PRINTA;A$ 

Come vedi, la prima volta il calcolatore stampa 1 A, cioè' i pri¬ 
mi due dati; la seconda volta stampa 2 B (la seconda coppia di 
dati), e cosi' via. La quinta volta stampa OUT 0F DATA ERROR. I 
dati infatti sono terminati. 

Il calcolatore pone al primo dato (contenuto nelle istruzioni 
DATA) un puntatore interno; esso avanza, dopo la lettura con 
READ, di un dato per ogni variabile letta. 

L'istruzione RESTORE permette di riposizionare il puntatore o 
all'inizio del blocco di dati o a una determinata istruzione DATA 
del programma; cioè' consente di rileggere dati già' letti o di 
saltarne un gruppo. 

Anche CLR permette di rileggere i dati dall'inizio, ma cancella 
anche tutte le variabili. RESTORE, può' essere seguito da un 
numero di linea, che indica la linea dove si vuole che il pros¬ 
simo dato venga letto. Prova il programma: 

1000 DATA 1,2,3,^,5 
1010 DATA 6,7,8,9,0 

e introduci in immediato la linea seguente: 

RESTORE 1010:READA,B:PRINTA ;B 

il calcolatore stampa 6 7, perche' ha letto i dati a partire dal^ 
la linea 1010. 


3.4 L'ISTRUZIONE GET 

L'istruzione GET serve per leggere dati dalla tastiera carattere 
per carattere; essa ha una particolarita', legge comunque quando 
viene eseguita, quindi non segnala che vuole un carattere, e, se 
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non hai premuto alcun tasto, legge 0 se seguita da variabile 
numerica, stringa nulla, se seguita da variabile stringa. 

Si scrive: GET variabile. 

Essa può' essere usata per leggere stringhe piu' lunghe di 88 
caratteri (limite per INPUT), costruendo la stringa complessiva 
con l'operazione di concatenamento. 

Un tipico uso di questa istruzione e' quello di creare un ciclo 
di attesa fino alla pressione di un particolare tasto: 

500 GET A$:IF A$<>"P" THEN 500 

prosegue solo se premi P. 

Esiste un'altra istruzione la GETKEY, che fa proseguire solo se 
si preme un tasto; si scrive: 

GETKEY lista variabili 

per esempio: 

600 GETKEY A$ 

non prosegue fino a quando non si preme un tasto. I tasti 
funzione danno errore. 


3.5 LE FINESTRE SUL VIDEO 

La finestra video e' una particolarita' che ti permette di defi-' 
nire una porzione di video dove lavorare: la zona al di fuori di 
questa porzione non viene interessata ne' da nuove scritte, ne' 
dall'operazione dello SCR0LLING. Praticamente puoi decidere tu 
quante devono essere le righe e quante le colonne su cui scri¬ 
vere, a patto di non superare le 25 righe e le 40 colonne, facen¬ 
do in modo che tutto il resto dello schermo non sia alterato. Il 
programma ES3.1 ti mostra un'applicazione della finestra video: 
una parte dello schermo viene riservata a una scritta fissa, e il 
resto viene lasciato a tua disposizione per usare il calco¬ 
latore. Come puoi vedere, la scritta lampeggiante non va via, 
neppure se premi il tasto SHIFT-'CLR/HOME. 
i REM ES3.1 
IO PRI NT CHR$ <147 >; 

20 PRINT” i- 

25 PRINT"-1" 

30 PRINT"| "CHR$<130VCOMMODORE PLUS-4 


I" 

M . 


35 PRINTCHR$<132>" 

40 PRINT" i- 
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45 PRINT"-■” 

50 CHAR,0,3,CHR$<27)+ ,, T” 

COME INSERIRE LA FINESTRA VIDEO 

Abbiamo accennato nel Paragrafo 1.2 che la sequenza ESC T posi¬ 
ziona l'angolo in alto a sinistra della finestra video, mentre la 
sequenza ESC B ne posiziona l'angolo in basso a destra. Per 
posizionare l'angolo in alto a sinistra quindi e' sufficiente 
portare il cursore nel punto in cui lo si vuole posizionare, e 
premere i tasti ESC e poi T. In questo modo abbiamo selezionato 
uno dei due parametri che occorrono per definire la nostra fine¬ 
stra video: l'inizio. Per l'altro (la fine della finestra), ci 
posizioneremo col cursore dove abbiamo stabilito che sì deve tro-> 
vare l'angolo in basso a destra e premeremo ESC e poi B. Da que¬ 
sto momento non potremo piu' scrivere fuori dalla zona delimi-' 
tata, se non eliminando l'effetto della finestra. 

Per inserire la finestra da programma, bisogna portare il cur¬ 
sore nell'angolo della finestra, stampando i caratteri di 
controllo necessari, poi stampare CHR$(27) (che e' il codice 
ASCII di ESC) e "T" o "B" a seconda che si tratti dell'angolo 
iniziale, in alto a sinistra, o di quello finale, in basso a 
destra. 

COME TOGLIERE LA FINESTRA VIDEO 

Per eliminare la finestra, possiamo premere due volte di fila il 
tasto CLR/HOME. Ovviamente anche premendo il tasto RESET la fine- 
stra video si cancella, ma cosi' si cancella anche il programma 
contenuto in memoria; invece, RUN/STOP-RESET cancella la fine¬ 
stra video, senza cancellare il programma in memoria. Un altro 
modo per cancellare la finestra video e' premere i tasti ESC N; 
cosi' pero' tutto quello che si trova sullo schermo viene cancel¬ 
lato. ESC R produce automaticamente una finestra video di 23 
righe X 38 colonne, e cancella tutto lo schermo. 

Per togliere la finestra da programma, basta far esegire l'istru¬ 
zione: 

PRINT CHR$(19) CHR$(19) 

che equivale a premere due volte di fila il tasto CLR/HOME. 

3.6 DEFINIZIONE DELLE FUNZIONI UTENTE 
ISTRUZIONE DEF FN 

DEF FN significa DEFINE FUNCTION (definisci la funzione). Per 
funzione si intende una funzione matematica, cioè’ una qualsiasi 
relazione che riceve in ingresso un valore e ne ritorna un altro. 
DEF FN va seguito dal nome della funzione e, tra parentesi, dal 
nome della variabile, su cui deve lavorare. La variabile su cui 
lavora la funzione si chiama ARGOMENTO. Ecco un esempio: 

10 DEF FN F(X)=X#X 
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Abbiamo definito una funzione che eleva al quadrato l'argomento. 
Se infatti chiediamo il valore della funzione, aggiungendo la 
linea: 

20 PRINT"-4 AL QUADRATO FA" FN F(-4) 
e scriviamo RUN, vediamo che il calcolatore stampa: 

-4 AL QUADRATO FA 16 

Come hai notato, la X non e' una vera variabile; essa serve solo 
per definire la funzione. Quando la funzione viene richiamata, i 
calcoli sono eseguiti sull'argomento che viene passato in quel 
momento. Nel nostro esempio e' stata passata come argomento la 
costante -i4. 

La X contenuta tra parentesi nella definizione della funzione non 
ha relazione con una eventuale variabile X presente in altre par¬ 
ti del programma. 

Nel COMMODORE PLUS^4 si può' passare solo un argomento alla 
funzione: NON si può' cioè' usare una funzione di piu' variabili 
del tipo: 

DEF FN F(X,Y)=SQR(X*X+Y*Y) 

ma bisogna passare una variabile solamente, tra le parentesi. 

10 DEF FN F(X)=SQR(X*X+Y*Y) 

In questo caso, potremo calcolare la funzione nel modo seguente: 
20 Y=4: PRINT FN F(3) 

In questo modo abbiamo calcolato il valore di una funzione di due 
variabili, passandone una tra parentesi, e l'altra attraverso la 
variabile Y. Il risultato di questo programma e' stampare 5, che 
e' 1'ipotenusa di Un triangolo rettangolo coi cateti che valgono 
3 e 4. 

Ricorda di porre la linea ove definisci la funzione all'inizio 
nel programma, perche' viene emesso il messaggio UNDEF'D FUNCTION 
(funzione non definita) se viene richiesto il valore di una 
funzione di cui non e' ancora stata incontrata la definizione: 

10 PRINT FN Q(3) 

20 DEF FN Q(Z)=Z 
RUN 

11 calcolatore si arresta col messaggio di errore UNDEF'D 
FUNCTION ERR0R IN 10 perche' il programma ha trovato prima 
un'istruzione FN di una DEF FN. Scambiando il numero delle linee 
il programma funziona correttamente. 

3.7 ALCUNE FUNZIONI AVANZATE 

LA FUNZIONE RND(X) 

Questa funzione ritorna un numero REALE pseudo CASUALE compreso 
tra 0 e 1 escluso. Per ottenere un numero compreso tra X e Y, 
bisogna moltiplicare il numero casuale per (Y-X) e sommare X. Se 
poi si vuole che il numero sia intero, si può' usare la funzione 
INT. Scriviamo una linea che ritorni un numero intero casuale 
compreso tra 1 e 7, escluso 7: 

PRINT INT(RND(1)*6+1) 
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Stampa un numero intero casuale compreso tra 1 e 7, escluso 7. 
cioè' tra 1 e 6 compresi. 

Generare numeri casuali e' un problema abbastanza complicato, per 
una macchina precisa come un calcolatore. Occorre infatti avere 
una base casuale da cui partire. Nel COMMODORE PLUS- 1 ! vi sono tre 
modi per ottenere le basi dei numeri casuali, che si selezionano 
scegliendo il valore dell'argomento della funzione: 

.RND(O) produce il numero casuale partendo da un contatore inter¬ 
no al calcolatore, che viene continuamente e rapidamente 
incrementato: e' il modo nel quale il numero piu' Sì avvicina a 
un vero numero casuale 

.RND(numero negativo) genera il numero casuale partendo dal nume¬ 
ro tra parentesi: 

PRINT RND(-I) 

stampa sempre 2.991 96A72E-08 

.RND(numero positivo) genera il nuovo numero partendo dal prece-^ 
dente numero casuale generato, permettendo di generare una serie 
di numeri casuale ripetibile: 

PRINT rnD( 1), appena acceso il calcolatore, stampa 

1.07070A47E-03. La seconda volta stampa .793262171. Anche RND(4) 
stampa lo stesso risultato di RND(1), perche' il seme non dipen¬ 
de dal valore dell'argomento della funzione, se questo e' 
positivo. 

LA FUNZIONE PEEK(X) 

É' una funzione che dovrebbe essere usata da un programmatore che 
conosce a fondo la macchina. Ritorna il valore del byte di memo¬ 
ria di indirizzo X. X non può' essere negativo, ne' maggiore di 
65535, perche' il COMMODORE PLUS-4 può' indirizzare 65536 byte 
diversi (tra 0 e 65535). 

IL COMANDO POKE X,Y 

E' il contrario di PEEK, cioè' anziché' leggere il contenuto del 
byte X, vi scrive il numero Y. Y deve essere compreso tra 0 e 25- 
5, e per il valore di X vedi PEEK. 

POKE 1 63811,200:PRINT PEEK(16384) 

stampa 200. Anche premendo NEW, CLR/HOME, il contenuto di questo 
byte non cambia. Poiché' la memoria viene usata dal calcolatore 
per molte funzioni, cambiare il contenuto di byte di memoria di 
cui non si conosce l'uso e' pericoloso, in quanto può' facil-i 
mente causare l'arresto completo del calcolatore. 


3.8 LA GESTIONE DEGLI ERRORI 

Il COMMODORE PLUS-4 possiede diversi comandi che ti aiutano nel 
"debugging", cioè' la correzione, del programma. 
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Questi comandi sono HELP, TRON, TROFF, STOP. A volte ti può' aiu-. 
tare anche l'Appendice D, che riporta la maggior parte delle cau- 
se che procurano gli errori solitamente piu’ "difficili" da 
scoprire. 

IL- COMANDO HELP 

E' forse il comando piu' potente a disposizione per capire 
qual'e' l'istruzione che ha prodotto l'errore. Puoi ottenere di 
eseguire questo comando premendo il tasto di funzione con la 
scritta HELP, o digitando il comando da tastiera, dopo che si e' 
verificato un errore nel programma. Vedrai lampeggiare un pezzo 
di linea. La prima istruzione che lampeggia e' quella nella qua¬ 
le si e' verificato l'errore, quella cioè' che non e' stata por¬ 
tata a termine a causa dell'errore. HELP non funziona sui coman¬ 
di immediati. Purtoppo capita anche ai programmatori piu' esper¬ 
ti di fare errori nei programmi. Le tecniche moderne di program¬ 
mazione insegnano a scrivere programmi molto ordinati, in modo da 
dividere il programma in MODULI (parti il piu' possibile indipen¬ 
denti). Tale tecnica permette di PROVARE separatamente ogni 
MODULO in tutte le condizioni piu' "critiche" per ciascun modu¬ 
lo. 

Cerca di rendere i programmi ordinati e leggibili: risparmierai 
tempo in fase di correzione e di modifica. 

IL COMANDO TRON 

TRON vuol dire TRACE ON, cioè' "segna" i numeri di tutte le linee 
che esegui. In questo modo e' possibile avere una traccia di do¬ 
ve il programma e' passato, e capire qual'e' la causa di un 
malfunzionamento. 

IL COMANDO TROFF 

E' il contrario di TRON. Permette di evitare che il calcolatore 
continui a stampare i numeri di linea delle linee eseguite anche 
dopo che non occorre piu' stampare la traccia del programma. 

IL COMANDO STOP 

Questo comando permette di arrestare il programma in determinati 
punti "critici", per richiedere il valore di variabili impor¬ 
tanti, o per vedere se il programma passa in certi punti. E' 
possibile riprendere l'esecuzione del programma dopo uno STOP, 
col comando CONT, a patto di non aver modificato il programma, di 
non avere commesso errori in modo immediato e di non aver esegui¬ 
to istruzioni che distruggano il programma o le variabili (NEW, 
CLR, ecc.). 

Il COMMODORE PLUS-*) ti da' la possibilità' di scrivere una rou¬ 
tine di gestione degli errori, una routine cioè' che viene 
eseguita automaticamente quando viene incontrato un errore. E' 
ovvio che una routine che deve gestire gli errori e' un po' 
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"delicata", nel senso che può' produrre un ciclo senza fine e 
inarrestabile, se gestita male: prova ad esempio il seguente 
programma": 

10 TRAP 100 
20 GOTO 20 
100 RÉSUMÉ 

Puoi arrestare questo programma solo premendo il tasto di RESET. 

IL COMANDO TRAP 

TRAP e' il comando che permette di definire il numero di linea 
dove parte la routine di gestione degli errori. L'istruzione: 

TRAP 20000 

informa il calcolatore che in caso di errore deve andare alla 
linea 20000 anziché' emettere il messaggio di errore e arrestare 
l'esecuzione. Usato da solo, cioè' senza il numero di linea, TRAP 
toglie l'effetto "trappola" e ritorna nel modo normale, in cui in 
caso di errore viene emesso il messaggio di errore del sistema e 
viene arrestata l'esecuzione. In questo modo e' possibile inscu¬ 
rire e disinserire l'effetto trappola lungo il programma, in mo¬ 
do da utilizzarlo solo in quei punti dove e' prevedibile un erro-ì 
re particolare. Tra tutti i messaggi di errore ce n'e' uno solo 
che non "sente" l'effetto trappola: UNDEF'D STATEMENT. Del resto 
in un programma corretto tale situazione non si dovrebbe mai 
verificare. TRAP inoltre si può' usare solo in modo programma, e 
non in modo diretto. 

LA ROUTINE DI GESTIONE DEGLI ERRORI 

Abbiamo accennato che questa routine e' delicata: ricorda di 
gestire solo gli errori che hai previsto, e di non riprendere 
l'esecuzione del programma se l'errore non e' quello che avevi 
previsto. Vi sono nel COMMODORE PLUS-4 due variabili riservate, 
ER e EL, che indicano rispettivamente il numero di codice 
dell'errore e il numero della linea dove si e' verificato l'er¬ 
rore. Vi e' anche una funzione, ERR$(X), che ritorna una stringa 
contenente il messaggio di errore dell'errore che ha codice X. 
Scriviamo una ruotine degli errori che non ti permette di arre¬ 
stare il programma col tasto RUN/STOP: 

20000 IF ER <> 30 THEN PRINT ERR$(ER) "ERROR IN" EL: END 
20010 PRINT "NON PUOI ARRESTARE IL PROGRAMMA SE NON CON RESET" 
20020 RÉSUMÉ 

Una routine di errore cosi' non permette di arrestare il program¬ 
ma col tasto STOP (codice di errore = 30), ma stampa il messag¬ 
gio di errore se si verifica qualunque altro errore. Il COMMO¬ 
DORE PLUS-4 e' costruito in modo da non gestire, se non in modo 
sistema, eventuali errori che si verificano nella routine di 
gestione degli errori: in tale circostanza viene emesso il 
messaggio di errore relativo all'ultimo errore verificatosi. Co¬ 
me probabilmente hai notato, tale routine assomiglia molto a una 
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subroutine, che quindi non deve terminare con GOTO. A diffetenza 
della subroutine, non deve terminare con RETURN, ma SEMPRE con 
RÉSUMÉ. 

IL COMANDO RÉSUMÉ 

Va sempre usato per terminare una routine di gestione degli erro¬ 
ri, altrimenti il calcolatore ritiene di trovarsi ancora in tale 
routine, e non esegue piu' la routine degli errori quando se ne 
verifica un altro. Il calcolatore ENTRA in modo GESTIONE ERRORE 
quando si verifica un errore, e ne esce solo quando incontra 
RÉSUMÉ. Vi sono tre diversi modi di usare RÉSUMÉ: 

.RÉSUMÉ da solo riprende l'esecuzione del programma principale 
ripetendo l'istruzione nella quale si e' verificato l’errore 
.RÉSUMÉ NEXT riprende dall'istruzione successiva a quella dove 
si e' verificato l'errore 

.RÉSUMÉ numero linea riprende a partire dal numero di linea 
specificato. 
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CAPITOLO 4 


COMUNICAZIONE CON LE PERIFERICHE 


11.1 COME IL CALCOLATORE COMUNICA CON LE PERIFERICHE 

Le periferiche sono dei dispositivi per l'ingresso e l'uscita dei 
dati, tramite i quali comunichiamo con il calcolatore. Ogni 
periferica utilizza un particolare tipo di supporto fisico per la 
comunicazione. 

Alcuni di questi dispositivi di 1/0 (Input/Output) sono tali da 
consentire una comunicazione diretta con l'utente; nel caso del 
COMMODORE PLUS-.4 abbiamo: 

.la tastiera, che usa il supporto tasti, 

.il televisore (o il monitor), che usa il supporto schermo 
video, 

•la stampante, che usa il supporto carta, 

.1 joystick, che usano come supporto leve o bottoni o rotori. 
Altri non consentono una comunicazione diretta, in quanto utiliz¬ 
zano supporti fisici' di tipo magnetico; per il COMMODORE PLUS-4 
abbiamo: 

.il registratore a cassetta, 

.l'unita' a floppy disk. 

I dispositivi di I/O sono apparecchiature distinte dal calco¬ 
latore, anche se esso, come il COMMODORE PLUS-4, si trova insca¬ 
tolato in una di esse, la tastiera. Per consentire la comuni-^ 
cazione tra il calcolatore e ogni dispositivo di I/O e' neces¬ 
saria un'interfaccia di collegamento. Le interfacce di I/O sono, 
in generale, dei dispositivi programmabili, cioè' contengono al 
loro interno dei registri, ai quali si può' accedere mediante 
indirizzi, come se fossero byte di memoria, programmando il 
funzionamento dell'interfaccia stessa. Dal punto di vista fisico 
le interfacce di I/O possono già' essere contenute all'interno 
del calcolatore o delle periferiche. Per il COMMODORE PLUS-4 le 
interfacce per le periferiche standard COMMODORE sono già' contea 
nute nel calcolatore. 

Ogni periferica di I/O e' individuata mediante un numero intero 
che, nell'Appendice A, abbiamo chiamato "unita"'. Questo numero 
nella letteratura viene spesso chiamato "dn", da Device Number 
(numero apparecchiatura). Per alcune periferiche il numero "dn" 
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può' essere modificato agendo su alcuni switch, interni o ester¬ 
ni; per altre esso e' fisso; i valori di "dn" validi sono riporr 
tati nel Paragrafo A. 4. 

Per i joystick non esiste un "dn”, la comunicazione risulta sem¬ 
pre aperta. 

Per le periferiche collegate tramite l'interfaccia seriale, stam¬ 
pante e disco, deve essere definito un numero che identifica il 
modo della comunicazione. Questo numero e' stato chiamato "sa" 
nella descrizione del BASIC; esso può' variare da 0 a 15. Il 
numero "sa" ha diverso significato a seconda delle periferiche; 
nei Capitoli 5 e 6 trattiamo diffusamente stampante e disco. 

L'insieme dei dati che vengono scambiati con una periferica si 
chiama "stream" o "flusso". Esso si trasforma in Output in una 
registrazione sul supporto fisico che viene chiamata "file". In 
Input il file, già' registrato sul supporto fisico, alimenta il 
flusso di dati verso il calcolatore. Ogni file e' contrada 
distinto da un numero, chiamato "lfn", da Logicai File Number 
(numero logico file). Il "lfn" può' variare da 0 a 255; per alcu- 
ne periferiche una parte dell'intervallo di variabilità' del 
"lfn", o alcuni valori, possono avere un significato parti¬ 
colare . 

Molte istruzioni BASIC usano il "lfn", che viene definito con 
l'istruzione OPEN. 

Un file e' composto da RECORD, cioè' da singoli gruppi di 
registrazioni che ha senso considerare insieme. Si chiamano CAMPI 
le singole registrazioni che compongono un record. Dobbiamo fare 
una distinzione tra: 

.record logici, 

.record fisici. 

Le dimensioni dei record, logici e fisici, e dei campi si misu¬ 
rano in numero di caratteri o in byte. 

Il RECORD LOGICO e' composto da tutti i campi che interessano 
l'argomento a cui il record si riferisce; in conseguenza può' 
essere lungo quanto e' necessario (almeno in linea teorica). 

Il RECORD FISICO dipende dal tipo di supporto di registrazione 
usato; per esempio su un tipo di carta e con una stampante di un 
certo tipo non si possono scrivere piu' di 80 caratteri per riga. 
In questo caso il record fisico, riga di stampa, e' di 80 carat¬ 
teri. Possiamo usare quella stampante con quella carta per seri-» 
vere i dati di un record logico di 300 caratteri; il record logi¬ 
co userà' piu' record fisici. Analogamente una linea del video 
contiene 40 caratteri, ma noi possiamo scrivere sul video un 
record logico lungo che sta su piu' righe. 

In generale esiste un limite nelle dimensioni dei record fisici, 
ed esso dipende anche dal supporto di registrazione. 

Altre caratteristiche che vengono in generale precisate per i fi- 
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le sono le seguenti: 

.record logici di lunghezza fissa o variabile, 

.numero dei campi, componenti il record, fisso o variabile, 
.lunghezza dei singoli campi fissa o variabile, 

.tipo del file: sequenziale, diretto, relativo, con indice 
sequenziale, 

.metodo di accesso ai record del file. 

Un file e' di tipo SEQUENZIALE quando viene creato scrivendo i 
record uno dopo l'altro, partendo dal primo. Esso e' di tipo 
DIRETTO quando si può' scrivere un record logico conoscendo la 
sua posizione fisica sul supporto di registrazione, indipen¬ 
dentemente dalla scrittura del record precedente. Un file 
RELATIVO viene scritto record per record (anche non in sequenza) 
fornendo il numero d'ordine del record nel file (primo, terzo,.- 
..). Un file CON INDICE SEQUENZIALE viene scritto un record dopo 
l'altro, creando contemporaneamente un indice sequenziale (file 
separato dal file principale) che consente l'accesso diretto 
mediante una chiave al record del file principale; la chiave e' 
il valore di un determinato campo. 

Il metodo di accesso ai record di un file dipende dal tipo di 
file, dal supporto di registrazione usato e dal software dispo¬ 
nibile . 

La gestione software delle periferiche può' avvenire solo per 
mezzo delle apposite routine del SISTEMA OPERATIVO del calco¬ 
latore, oppure può' dipendere anche da routine memorizzate nelle 
ROM delle periferiche. Nel nostro caso la stampante e l'unita’ 
disco contengono del software registrato in ROM. 

Riepiloghiamo le istruzioni del BASIC che riguardano la gestione 
delle periferiche come file: •> 

OPEN lfn[,dn[,sa[,"nomef,tipo.modo"]]] 
per stabilire la comunicazione 

CLOSE lfn 

per chiudere la comunicazione 
CMD lfn[,lista variabili] 

per trasferire a una periferica diversa l'uscita video 

GET# lfn,lista variabili 

per leggere dati carattere per carattere 

INPUT// lfn,lista variabili 

per leggere dati variabile per variabile 

PRINT// lfn,lista variabili 
per scrivere dati 
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Il sistema raccogJie in una tabella le informazioni relative ai 
file aperti; tale tabella può' contenere 10 elementi. 


TABELLA GESTIONE FILE 


Num.elem. 

lfn 

dn 

sa 

. 1) 

1289 

1299 

1309 

. 2) 

1290 

1300 

1310 

. 3) 

1291 

1301 

1311 

. il) 

1292 

1302 

1312 

. 5) 

1293 

1303 

1313 

. 6) 

129*1 

1304 

1314 

. 7) 

1295 

1305 

1315 

. 8) 

1296 

1306 

1316 

. 9) 

1297 

1307 

1317 

.10) 

1298 

1308 

1318 


La tabella dei file aperti viene utilizzata in modo che le infor- 
mazioni sui file aperti occupino le prime posizioni. Quando un 
file viene chiuso, se e' l'ultimo nella tabella, essa resta come 
e' e viene aggiornato solo il puntatore (byte 151) all'ultima 
posizione occupata, se non e' l'ultimo, la sua posizione viene 
occupata dall'ultimo file e viene aggiornato il puntatore. 

Il programma ES4.1 che segue mostra i contenuti di questa tabel- 
la in diverse situazioni, e i contenuti dei byte che danno infor- 
mazioni circa il file corrente e il numero dei file aperti. Que¬ 
sti ultimi sono: 

byte 171: lunghezza nome file corrente 

byte 172: lfn file corrente 

byte 173: sa file corrente 

byte 174: dn file corrente 

byte 175/176: puntatore al nome del file 

byte 151: numero file aperti e contemporaneamente puntatore 
all'ultima posizione occupata nella tabella. 


1 REM ES4.1 

2 0PEN4,4 :CMD4 

3 G0SUB160 
10 OPEN0.0 
15 0PEN1,3 

20 OPEN2.0 

21 PRINT#4:CL0SE4 

23 0PEN5,1,1,"PIPPO" 

24 0PEN4,4 :CMD4 

25 GOSUB100 

30 PRIMTM4CL0SE4 
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40 CLOSE0:CLOSEi:CL0SE2:CL0SE5 
43 0PEN4,4 :CMD4 
45 GOSUB106 
47 PRINTH4CLOSE4 
50 STOP 

100 REM STATO FILE 

101 PRINT"NUMERO FILE APERTI: ";PEEK<15i> 

103 PRINT"FILE CORRENTE" 

104 PRINT ,, LFN , \"DN" < ,, SA , ‘ 

105 PRINTPEEK<172>,PEEK<174),PEEK<173> 

110 PRINT"PUNTATORE NOME: ";256*PEEK<176>+PEEK<1 
75 > 

113 PRINT"LUNGHEZZA NOME: "jPEEK(17i> 

115 PRINT-PRINT"TABELLA FILE" 

117 PRINT ,, LFN", ,, DN","SA” 

120 F0RK=1289T01298 

125 PRINTPEEK(K),PEEK<K+10>,PEEK<K+20) 

130 NEXTK 
135 RETURN 


COMMENTO A ES4.1 

.2/3: viene aperta la stampante e stampata la situazione. 

.10/25: vengono aperti i file con lfn 0, 1 e 2, poi viene chiu¬ 
sa la stampante e aperto un file su cassetta con lfn=5. Viene 
riaperta la stampante e stampata la situazione. 

.30/45: vengono chiusi tutti i file aperti, poi riaperta la 
stampante e stampata la situazione. 

.47/50: viene chiusa la stampante e il programma termina. 
.100/135: sottoprogramma che stampa il valore dei puntatori e la 
tabella. 

Osservando i risultati puoi verificare come viene gestita la 
tabella. 

RISULTATI ES4.1 


INUMERÒ FILE APERTI: 1 
FILE CORRENTE 

LFN DN SA 

4 4 255 

PUNTATORE NOME: 250 
LUNGHEZZA HOME 0 

TABELLA FILE 

LFN DN SA 

4 4 255 

0 0 0 

0 0 0 

0 0 0 

0 0 0 
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e e e 

eoo 
ooe 
eoe 
eoo 


NUMERO FILE APERTI: 5 
FILE CORRENTE 

LFN DN SA 

4 4 255 

PUNTATORE NOME: 250 
LUNGHEZZA NOME: 0 


TABELLA FILE 
LFN 
2 
0 
i 
5 
4 
0 
0 
0 
0 
0 


DN 

0 

0 

3 
1 

4 
0 
0 
0 
0 
0 


96 

96 

255 

9? 

255 

0 

0 


0 

0 


NUMERO FILE APERTI: 1 
FILE CORRENTE 

LFN „ DN SA 

4 4 255 

PUNTATORE NOME: 250 
LUNGHEZZA NOME: 0 


TABELLA FILE 

LFN DN SA 

4 4 255 

5 1 97 

i 3 255 

5 i 97 

4 4 255 

0 0 0 

0 0 0 

0 0 0 

eoe 
eoo 
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1.2 LA TASTIERA VISTA COME FILE 


Il BASIC fornisce le istruzioni per la tastiera, che e' consi- 
derata la periferica di Input principale. Il byte 152 contiene il 
numero di default della periferica di Input; esso all'accensione 
e' zero, "dn" della tastiera. I comandi INPUT, GET e GETKEY 
attendono Input dalla tastiera. Essa e' una periferica un po' 
particolare, infatti pur essendo di Input, le routine del SISTEMA 
OPERATIVO relative al suo uso forniscono per alcune istruzioni 
(INPUT) anche un Output sul video, che, ovviamente, potrebbe 
essere evitato, usando routine diverse. 

Vediamo ora, con alcuni esempi, come si può' usare la tastiera 
come una periferica gestita come file. 

Nel programma ES4.2 mostriamo un primo esempio. 

1 REM ES4.2 

10 OPEN 1,0 

15 PRINT"SCRIUI NUMERO: :INPUTWi,N 

20 PRINT "fc*J- HAI SCRITTO: ";N 
25 CL0SE1 

COMMENTO A ES4.2 

.10: apriamo la dn=0 come file con lfn=1, trascurando gli altri 
parametri della OPEN, che non risultano necessari. 

.15: con la PRINT, scriviamo il messaggio di richiesta di un 
numero e terminiamo con per non andare a capo. Con la 

INPUT#1, leggiamo dal file logico 1 un numero, cioè' dalla 
tastiera. Quando esegui il programma non vedi il "?" di richie-> 
sta dati. Termini il numero come al solito con RETURN, vedi 
scomparire il cursore, ma esso non va a nuova linea. 

.20: stampiamo un messaggio e il numero N. Il messaggio tra 
virgolette inizia con due caratteri "cursore a destra" perche' 
altrimenti esso verrebbe scritto sopra l'ultima cifra del nume¬ 
ro; ne abbiamo messi due per creare anche uno spazio. Possiamo 
concludere che il RETURN di chiusura dato lascia in questo caso 

11 cursore sull'ultimo carattere scritto. 

Se rispondi con un numero di parecchie cifre, il messaggio 
successivo all'INPUT andrà' in parte a nuova linea. 

Nel programma ES4.3 riportiamo un altro esempio. 

1 REM ES4.3 
10 OPEN 170,0 

15 PRINT"SCRIUI NUMERO: :INPUTM170,N 

20 PRINT:PRINT "HAI SCRITTO- ";N 
25 CLOSE170 

La differenza di ES^.3 rispetto al programma precedente e' che 
abbiamo usato lfn=170 e che alla linea 20, andiamo a capo con la 
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prima PRINT e, poi, scriviamo il messaggio; abbiamo potuto elimi¬ 
nare i caratteri di "cursore a destra". 

Nel programma ES4.4 riportiamo un terzo esempio. 

i REM ES4.4 

ie open e,e 

15 PRIHT'‘SCRIUI NUMERO . INPUT**©, N 
20 PRINT "HAI SCRITTO: ";N 
25 CLOSEO 

In questo caso abbiamo usato lfn=0, questo produce il solito 
effetto di INPUT dalla tastiera, cioè' compare il punto interro¬ 
gativo di richiesta dati e il RETURN di chiusura dato manda a 
nuova linea. L'istruzione INPUT normale corrisponde ad aver usa¬ 
to una OPEN 0,0 seguita da una INPUTtfO. 


4.3 IL VIDEO VISTO COME FILE 

L'istruzione PRINT del BASIC manda i dati sul video, che e' 
considerato la periferica di Output principale, a partire dalla 
posizione del cursore; la posizione di stampa può' essere modifi¬ 
cata usando i caratteri di controllo del cursore e le funzioni 
TAB e SPC. Il byte 153 contiene il numero di default della 
periferica di Output; esso all'accensione e' 3, "dn" del video. 
Vediamo,ora, con alcuni esempi, come si può' usare il video, 
gestendolo come un file, sia in Input che in Output. 

Nel programma ES4.5 mostriamo un primo esempio. 

1 REM ES4.5 

10 0PEN3,3 

15 PRINT**3,"L,"; ,, ABCDEFGHIJKLMNOPQRSTUUWXVZ” 

16 PRINT**3,1234 

17 fls="" 

20 PRINT**3,"H"; 

23 F0RK=1T026-GET**3,B$ 

25 A$=A$+BS 

30 NEXTK PRINT*»3,'W; 

31 NS="":GET*»3,N1S 

33 GET**3,H1S:IFNi$=CHR$<32>THEN35 

34 N$=N$+Ni$:G0T033 

35 PRI NT«*3 . " HUilililimiiMiM!] ' 1 AS 
37 PRINT**3,UAL<NS) 

40 CL0SE3; STOP 

COMMENTO A ES4.5 

.10: apre il video, dn=3, con lfn=3. 

.15: stampa sulla prima linea del video pulito, dopo aver usato 

11 carattere di controllo SHIFT-CLEAR/HOME, le 26 lettere 
dell'alfabeto, con PRINT#3. 


80 




.16: stampa con PRINT#3 sulla seconda linea del video il numero 
123*1. Nota che dopo la stampa il cursore va a capo, ma sul video 
non viene registrato il carattere CHR$(13). Il video e' stato 
usato come file di Output. 

.17: pone A$ a stringa nulla. 

.20: stampa con PRINT#3 il carattere di controllo CLR/HOME per 
portare il cursore nella prima posizione del video. 

.23/30: legge con GET#3, quindi usa il video come file di Input, 
quello che sta sulla prima linea, carattere per carattere e som-i 
ma i caratteri letti in A$; questo per 26 volte. Poi con PRINT#3 
stampa i caratteri di controllo CLR/HOME e FRECCIA GIU', per 
posizionarsi all'inizio della seconda riga del video. 

,31: pone N$ a stringa nulla e legge il primo carattere, che 
sappiamo essere uno spazio, a vuoto. Se vogliamo leggere un nume-' 
ro con il segno meno, questo primo carattere va posto nella 
stringa N$. 

.33: legge in N1$ un carattere; se esso e' uno spazio, cioè' il 
numero e' terminato, prosegue dalla linea 35. 

• 3 1 *: somma il carattere letto nella stringa N$ e torna alla 
linea 33. 

.35: si posiziona sulla 13 - esima riga del video e stampa A$ con 
PRINT#3. 

.37: stampa con PRINT#3. sulla linea seguente il valore del 
numero letto. 

.*10: chiude il file con lfn=3 e si ferma. 

Come vedi in questo'esempio il video e' stato aperto come file ed 
usato alternativamente in Input e in Output. Non si può', pero', 
usare l'istruzione INPUT#3, infatti da' l'errore "string too 
long", dato che non trova il carattere CHR$(13)* 

M I FILE SU CASSETTA 

Nel caso della cassetta e' possibile registrare facendo scorrere 
il nastro in sequenza, si tratta di registrazione sequenziale. 
Ovviamente se una registrazione e' di tipo sequenziale, anche la 
conseguente rilettura può' essere solo di tipo sequenziale. 
Possiamo schematizzare il nostro file, in un pezzo di nastro 
magnetico, sul quale si susseguono i record, ognuno diviso in 



Figura *1.1 File, record e campi 
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Un file può' essere o LETTO o SCRITTO, non si possono mescolare 
le due operazioni. 

Non esistono limiti alla lunghezza dei singoli campi (salvo le 
limitazioni già' note sulla grandezza dei numeri e la lunghezza 
delle stringhe). 

Risulta abbastanza laboriosa l'operazione di aggiornamento di un 
file; infatti non si può' correggere una parte di registrazioni. 
Per aggiornare un file su cassetta e' necessario trasferire il 
suo contenuto in memoria, e poi scrivere un nuovo file, modifi¬ 
cando dove necessario. In conseguenza ti raccomandiamo di non 
creare file di dati troppo lunghi; devi sempre fare ì conti con 
la memoria disponibile nel calcolatore. 

Se vuoi organizzare un archivio di indirizzi, per esempio, invece 
di creare un unico file di nominativi, puoi spezzarlo in una 
serie di file, ognuno dedicato ai nomi che iniziano con un gruppo 
di lettere. 

Le operazioni per la gestione dei file sono: 

.1) apertura della comunicazione con il file, 

.2) scrittura o lettura del file, 

.3) chiusura della comunicazione con il file. 

Al momento della creazione di un file, gli assegnamo un nome; 
questo nome va ricordato per poter comunicare con il file e viene 
registrato all'inizio del file. Il file e' visto dal programma 
anche con un numero distintivo, il "lfn", da Logicai File Number; 
esso può' variare da 1 a 255 (di norma si usano numeri pi-coli). 
Il parametro "sa" da Secondary Address, serve per precisare il 
tipo dell'operazione. Nel seguito troveremo: 

.fn, nome file, stringa da 1 a 16 caratteri, 

.lfn, numero logico del file, da 1 a 255, 

.dn, numero della periferica, 1 per la cassetta, 

•sa, indirizzo secondario, che per la cassetta può' valere: 

..0 o mancare per operazioni di lettura da nastro, 

..1 per operazioni di scrittura su nastro, con registrazione del 
carattere di fine file, 

..2 per operazioni di scrittura su nastro con registrazione anche 
di un altro carattere particolare alla fine del file, per 
segnalare anche la fine del nastro. 

I parametri dn, lfn e sa, possono essere costanti o variabili 
numeriche; fn può’ essere una costante o una variabile stringa. 
Per stabilire la comunicazione con un file si usa l'istruzione 
OPEN; essa si scrive: 

OPEN lfn,dn,sa,fn 

dove i parametri hanno il significato visto sopra; dopo la OPEN 
si può' leggere o scrivere. Il tipo di operazione consentito sul 
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file dopo l'apertura dipende dal valore di "sa". 

Se il file e' stato aperto per lettura, e quindi deve esistere 
già' sul nastro, quando tenti di scriverci sopra ottieni un 
messaggio di errore. 

In conseguenza del valore di "sa" al momento dell'esecuzione 
della OPEN compare sul video il messaggio di richiesta: 

PRESS PLAY ON TAPE, oppure 
PRESS PLAY & RECORD ON TAPE. 

Quando viene eseguita la OPEN, dopo la risposta al messaggio di 
sistema, il video si sbianca, il nastro gira, e, in caso di let^ 
tura viene ricercata l'intestazione del file richiesto, mentre in 
caso di scrittura viene scritta la testata del nuovo file. 

Le altre istruzioni per la gestione del file si riferiscono al 
file aperto per mezzo del numero "lfn". 

Per scrivere si usa l'istruzione PRINT#; essa si scrive: 
PRINT#lfn, lista dati 

Scrive sul file aperto con numero logico "lfn" i dati della 
lista, che possono essere variabili o costanti. In particolare 
lista dati può' essere una sola variabile. 

E' importante sottolineare che i dati vengono registrati 
carattere per carattere sul nastro, e che e’ necessario registra-» 
re un "carattere separatore" che, in fase di lettura, segnali la 
fine di un dato. Tale carattere separatore deve essere o la vir^-- 
gola o il RETURN. Il carattere separatore virgola può' essere 
passato come: oppure CHR$(44), mentre il RETURN può' essere 

passato come CHR$(13). oppure dall'assenza di punteggiatura dopo 
l'ultimo dato della lista. Esempi: 

10 PRINT#3,"alba";"serena" 

da' luogo in lettura a un solo dato che appare come "albase^ 
rena", infatti il separatore punto e virgola non ha fatto aggiungi 
gere spazi e non e' presente un separatore registrabile, mentre 
la mancanza di punteggiatura finale ha fatto registrare un 
RETURN. 

10 PRINT#3,"alba","serena" 

da' luogo in lettura a un solo dato che appare come 
"alba serena", infatti il separatore virgola ha fatto 

aggiungere 8 spazi. 

10 PRINT#3."alba";",";"serena" 

da' luogo in lettura a due dati: il primo "alba" e il secondo 
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"serena", infatti e' stata registrata la virgola separatrice. Ta- 
li dati pero' possono essere letti tutti e due solo da un’istruì 
zione di lettura che contenga due variabili nella lista. Infatti 
una operazione di lettura legge sempre tutti i dati compresi tra 
due caratteri RETURN; se non poni un numero sufficiente di variai 
bili nella lista di lettura puoi perdere dei dati. Questo non 
succede se il separatore e' il RETURN per ogni singolo dato. 

10 PRINT#3, "alba" : PRINT#3, "serena" 

da' luogo in lettura a due dati, che sono stati registrati con il 
carattere separatore RETURN, infatti manca la punteggiatura alla 
fine della lista dati. 

Durante le operazioni di scrittura di un file non avviene un rea¬ 
le trasferimento di dati tra calcolatore e cassetta ogni volta 
che si esegue una PRINT#; l'operazione di trasferimento dati 
avviene solo quando, dopo l'esecuzione di un certo numero di 
istruzioni PRINT#, e' stata riempita la zona di memoria che ser- 
ve per immagazzinare i dati per la cassetta; tale zona si chiama 
BUFFER. Il buffer usato dal sistema si trova dal byte 819 al byte 
1010 ($0333/$03F2) ; sono 192 byte. La gestione del buffer risul- 
ta trasparente per l'utente, che tratta i dati solo a livello 
logico. Se desideri vedere come i dati sono registrati nel buf- 
fer, per esempio dopo la OPEN di un file, o in qualunque altro 
momento, puoi leggere il contenuto del buffer usando la funzione 
PEEK. 

Inoltre se vuoi vedere i dati presenti nel buffer carattere per 
carattere li puoi leggere con l'istruzione GET#. 

Anche i file di programma transitano dal buffer sia in fase di 
lettura (LOAD), che in fase di scrittura (SAVE). Risulta meno 
agevole analizzare il contenuto del buffer per queste opera¬ 
zioni, dato che esse sono svolte con continuità' e, alla fine, 
nel buffer si trova solo l'ultima parte dei dati transitati. 

In fase di scrittura quando il buffer e' pieno, il suo contenuto 
viene trasferito sulla cassetta; durante il trasferimento il 
video si sbianca. 

Per leggere un file si usa l'istruzione INPUT#; essa si scrive: 
INPUT#lfn,lista dati 

e lista dati deve contenere i nomi delle variabili nelle quali 
leggere da nastro, separate da virgole. La INPUT# legge i dati 
che sono registrati tra due RETURN, perdendone alcuni, se il 
numero di variabili della lista non e' sufficiente. Inoltre il 
numero dei caratteri tra due RETURN non deve superare 88. 

11 tipo delle variabili deve concordare con il tipo dei dati da 
leggere; in caso contrario si ha segnalazione di errore. 
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Per poter leggere con maggior liberta', ai può' usare l'istru-. 
zione GET#, che legge carattere per carattere, compresi i carati 
teri separatori registrati; essa si scrive: 

GET#lfn,lista dati 

E' consigliabile usare nomi di variabili stringa per evitare 
segnalazioni di errore. 

Con GET# si possono leggere campi lunghi a piacere, dato che si 
leggono un carattere per volta. 

Anche per le operazioni di lettura il trasferimento dei dati 
avviene a blocchi; alla prima lettura viene riempito il buffer e 
vengono poi prelevati da esso i caratteri. Il buffer viene riem- 
pito nuovamente quando tutti i dati presenti sono stati letti. 

Per chiudere la comunicazione con un file si usa l'istruzione 
CLOSE; essa si scrive: 

CLOSE lfn 

ed e' necessario usarla per lavorare correttamente. Chiudere un 
file, aperto per scrivere, e' necessario anche per svuotare il 
buffer di eventuali caratteri residui. L'operazione di chiusura 
serve anche per liberare una posizione nella tabella di gestione 
dei file del BASIC; tale tabella consente di gestire solo 10 fi¬ 
le contemporaneamente. 

Riportiamo come esempio di scrittura di un file il programma 
CREAFILE. 

1 REM CREAFILE 
10 OPEN 3,1,1,"NOMI" 

15 F0RK=lT01O 
20 INPUT"NOME=";H$ 

25 PRINTH3,N$ 

30 NEXTK 
40 CLOSE 3 


In esso alla linea 10 viene aperto il file NOMI per scrivere e 
gli viene assegnato lfn=3. Dalla linea 15 alla 30 si ha un ciclo 
nel quale vengono chiesti 10 nomi dalla tastiera e scritti sul 
nastro. Alla linea HO viene chiuso il file. 

Segue il programma esempio LEGGIFILE, nel quale viene aperto in 
lettura il file NOMI, vengono letti in ciclo e stampati sul video 
i 10 nomi e poi viene chiuso il file. 
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i REM LEGGIBILE 
10 OPEM 3,1,0,"HOMI" 
15 FORK=1TO10 
20 INPUTM3,N$ 

25 PRINT NS 
30 NEXTK 
40 CLOSE 3 


In quest'ultimo esempio abbiamo letto 10 dati, infatti sapevamo 
di averne scritti 10. Se avessimo cercato di leggerne piu' di 10 
avremmo avuto segnalazione di errore. Quando il file, aperto in 
scrittura, viene chiuso, il sistema aggiunge in fondo un carata 
tere particolare che segnala la fine del file e si chiama EOF (da 
End Of File); anche il carattere EOT (da End Of Tape)' se sa=2. Il 
carattere EOF, che e' uno 0 (codice ASCII 0) viene sentito quan-> 
do si legge l'ultimo dato che lo precede, e viene registrato 
automaticamente dal sistema nella variabile riservata ST il 
numero 64. Per questa ragione dopo ogni lettura e' bene memoriz'- 
zare ST in una variabile di comodo, da analizzare prima di tor- 
nare a leggere. Il carattere EOF viene prodotto da te se scrivi 
su un file il carattere CHR$(0); quindi devi evitare di usarlo, 
dato che il calcolatore lo riconosce come segnalazione di fine 
file. Il programma LEGGIFILE, e' meglio sia scritto come 
LEGGICONST, che segue. 


1 REM LEGGICONST 
10 0PENH3,1,0."NOMI" 
15 INPUTH3,NS 
20 TS=ST 
25 PRINTNS 
30 IFTS=0THEN15 
40 CL0SE3 


In esso, dopo l'istruzione INPUT#3» memorizziamo in TS la variai 
bile di stato ST. Alla linea 30 analizziamo TS e torniamo a leg-’ 
gere dal file solo se essa e' a zero, altrimenti chiudiamo il 
file. 

Nel caso dei file su cassetta non sono applicabili in modo rlgo- 
roso i concetti di RECORD e di CAMPO. Infatti potresti consi¬ 
derare RECORD la parte di registrazioni comprese tra due RETURN, 
e CAMPI i dati, separati da virgola, all'interno del record, ma 
avresti le seguenti limitazioni: 
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. il RECORD non potrebbe contenere piu' di 88 caratteri, 

. il RECORD dovrebbe essere sempre letto da una sola INPUT#, 
usando un numero di variabili pari al numero dei CAMPI, oppure 
dovresti usare GET# e leggere carattere per carattere. 

Per tutte queste ragioni, in generale i file sequenziali su 
cassetta si registrano usando il RETURN (CHR$(13)) sia come 
separatore di campo che come separatore di record. 


ESEMPIO ARCHIVIO DI DATI SU CASSETTA 

Riportiamo, come esempio riassuntivo, un programma che consente 
di gestire un archivio di dati su cassetta. Costruiamo il 
programma in modo che sia facilmente modificabile, e tu lo possa 
adattare alle tue esigenze, cambiando sia i nomi dei campi, che 
il loro numero. 

Le operazioni che deve essere possibile effettuare per gestire un 
archivio di dati sono le seguenti: 

.a) creazione ex novo dell'archivio, 

.b) aggiornamento dell'archivio: 
bl) cancellazioni di record, 
b2) aggiunta di nuovi record, 
b3) modifica di record già' esistenti, 

.c) lista di tutto q parte dell’archivio. 

Queste operazioni sono in generale necessarie per qualunque 
archivio; inoltre ogni archivio può' essere utilizzato per altri 
scopi, che dipendono dalle specifiche esigenze inerenti ai 
soggetti archiviati. 

Nella Figura 4.2 riportiamo uno schema a blocchi molto generale 
del programma FILESEQ, per la gestione di un archivio sequen¬ 
ziale . 


Noi abbiamo deciso di creare un archivio formato da record di 6 
campi ciascuno, relativi a un'agenda di indirizzi. Creiamo e 
manteniamo l'archivio in ordine alfabetico in base ai due primi 
campi; in conseguenza i dati, nella fase di creazione iniziale 
del file devono essere forniti rispettando tale ordine. Il 
programma rifiuta nominativi fuori ordine, come pure nominativi 
uguali. 

All'inizio viene proposto un menu' per scegliere tra le tre 
funzioni principali: CREAZIONE, AGGIORNAMENTO, STAMPA. Viene 
chiesto quanti record si vogliono trattare, per predisporre il 
dimensionamento delle variabili. 

La funzione di AGGIORNAMENTO inizia trasferendo completamente in 
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Figura H.2 Diagramma a blocchi FILESEQ 


memoria il file esistente; poi si articola in tre fasi: 

.1) modifica in memoria dei record già' esistenti, 

.2) cancellazione in memoria, ponendo spazi al posto del primo 
campo, nei record da eliminare dal file, 

•3) aggiunta, durante la riscrittura del file, di eventuali nuo-' 
vi record, che devono essere forniti in ordine. 

In Figura *).3 riportiamo uno schema a blocchi della fase di 
aggiornamento. 

1 REM FILESEQ 

3 REM CREAZIONE E GESTIONE FILE SEQUENZIALE 
5 REM RECORD IN ORDINE PRIMI DUE CAMPI 
7 PR = 3: REM DN PERIFERICA DI STAMPA 
9 NF = 4: REM NUMERO LOGICO FILE DI STAMPA 
li NC=6:REM NUMERO CAMPI DEL RECORD 
13 REM VETTORI DESCRIZIONI E DATI 
15 DIMDi< NC),IS(NC) 

J 7 CHS-(,HRS(13>:SPS=" 

19 REM DESCRIZIONI* CAMPI 
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21 DATA COGNOME, NOME,INDIRIZZO 
23 DATA CAP,CITTA',TEL. 

25 FORK=iTONC READDS(K) NEXTK 
27 REM SCELTA OPERAZIONI 

29 PRIHT ,, LiHfl SCELTA OPERA?IONE81H" 

31 PRINTTAB(10>"1> CREAZIONE" 

33 PRINTTAB<IO>"2) AGGIORNAMENTO" 

35 PRINTTAB(10)"3) STAMPA" 

37 PR I NTT AB < 10 ) "9 ) FINEli]" 

39 GETKEVRS:R=UAL(R$> 

41 IFR<10R<R>3ANDRO9)THEN39 
43 IFR=9THENG0SUB365: STOP 

45 PRIHT*‘ LiiiaiHl QUANTI RECORD TRATTI IN TUTTO, 
11 

47 PRINT" SE IL FILE NON ESISTE 0," 

49 PRINT" SE IL FILE ESISTE GIÀ'?" 

51 INPUT"1*JNOMERO RECORD: ";N 
53 INPUT"CONFERMI <S?N>: ";R$ 

55 IFRSO"S"THEN45 

57 REM DIMENSIONAMENTO MEMORIA PER N RECORD 
59 DIMMCS < N,NC) 

61 ON R GOTO 63,113,91 
63 REM 

65 REM CREAZIONE FILE 
67 G0SUB267:G0SUB275:G0SUB281 
69 LC$="":LN$="“:K1=N:FORK=1TON 
71 G0SUB211 

73 IFSMOOTHENK1=K-1:K=N:GOTOB5 
75 IFIS(1)>LC$THE$I81 
77 IFI $ <1)=LC$THENIFI$<2)>LN$THEN81 
79 G0SUB313G0SUB319:G0T071 
81 LC$=IS<1> LN$=I$<2> 

83 G0SUB221 
85 NEXTK CLOSEl 

87 PRINT"UJFINITO CARICAMENTO ";K1;" RECORD" 

89 PRINT"l<]FILE: "; NFS : G0SUB319 : G0SUB365 : RUN 
91 REM 

93 REM STAMPA FILE 

95 G0SUB285:G0SUB267:G0SUB275:G0SUB293 
97 PRINTMNF,"LISTA FILE NFS :PRINTHNF:PRINTMNF 

99 G0SUB299 

101 PRINTHNF,I$(1);SP$;IS<2> 

163 PRINTHNF,IS(3);SPS;IS<4);SPS;I$<5>;SPS;IS<6> 
105 PRINTHNF:PRINTHNF 
107 IFFS064THEN99 

109 CLOSEl CLOSENF:PRINT"l!l!]FINITO LISTA" 

111 G0SUB365:RUN 
113 REM 

115 REM AGGIORNAMENTO FILE 

117 PRINT-IPDIAGGIORNAMENTO FILE" 

119 PRIHT"[J1JM0NTA NASTRO VECCHIO” 

121 G0SUB319:G0SUB275:G0SUB291:F0RK=1T0N 
123 F0RJ=1T0NC:INPUTH1,MCS(K,J):NEXTJ 



125 IFST=64THENCL0SEi:Ki=K:K=N:NEXTK:G0T0129 
127 NEXTK ■- PRINT"l!jFILE SUPERA RUM. MASS . REC . "; N : ST 
OP 

129 PRINT"liJLETTI ";Ki;" RECORD" : SM=8 : N=K1 
131 PRINT"m*jUARI AZIONI S/N "INPUTRS 
133 I FRSO"S"THENi49 
135 REM 

137 REM MODIFICA RECORD 
139 SW=0:GOSUB375: IFSMOOTHEN149 
141 SM=0 : 60SUB387 : IFSHO0THEN135 
143 F0RJ=3T0NC:I $<J>=MC$<K1,J>:NEXTJ 
145 G0SUB357:G0SUB337 

147 F0RJ=3T0NC:MCS<K1,J>=IS<J):NEXTJ:G0T0135 
149 PRINT"l£]CANCELLAZIONI S/N ” : INPUTRS 
151 IFR$C>"S”THEN1G3 
153 REM 

155 REM CANCELLAZIONE RECORD 
157 SW=8 : G0SUB375 ■ IFSWO0THEN163 
159 SU=0:GOSUB387:IFSUO0THEN155 
161 MCS(K1j1> =SPS:G0T0155 
163 REM 

165 REM RISCRITTURA FILE 
167 SW=0FF=OK1=0:N1=1 

169 PRINT-UPREPARA NUOUO NASTRO":G0SUB267 

171 G0SUB275:G0SUB281 

173 PRINT"[!]INSERIMENTI S/N ":INPUTR$ 

175 IFRSC>"S"THEN201 
177 REM 

179 REM INSERIMENTO NUOUO RECORD 
181 GOSUB213: IFSMO0THEN199 
183 IFFF=iTHEN189 
185 G0SUB233 

187 IFUO0THENU=0GOTO193 
189 IFI $ < 1 )>LCSG0T0195 
191 IFIS<1)=LCSANDIS(2>>LHSTHEN195 
193 G0SUB317:G0SUB319:G0T0181 
195 G0SUB221 - LCS=IS<1) .LN$=IS<2> 

197 K1=K1+1:G0T0181 
199 IFFF=1THEN203 
201 G0SUB253 

283 PRINT"UJF INITO AGGIORNAMENTO" 

205 PRINT"SCRITTI ";K1;" RECORD”:CLOSE1 
207 PRINT"FILE: ";NF$ 

209 GOSU8319:GOSUB365:RUN 
£11 REM 

213 REM LETTURA NUOUI DATI 

215 SW=0:G0SUB325:IFSM=1THENRETURN 

217 G0SUB337 

219 RETURN 

221 REM 

223 REM SCRIUE NUOUO RECORD SU NASTRO 
225 FORJ=1T0NC 

227 IFLEN<I$<J>>=0THENIS<J>=" " 
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229 PRINTttl ,I$(J);CH$; : NEXTJ : RETURN 
231 REM 

233 REM RICERCA POSIZIONE NUOVO RECORD 
235 U=0:FORK=NlTON:IFMCSIK,1>=SP$THEN249 
237 IFMC$<K,l>d$<i>THEN247 

239 IFMC$<K,l)=I$<i>ANDMC$<K,2><I$<2>THEN247 
241 IFMC$<K,i)=I$(1)ANDMC$(K,2>=I$<2>THEN245 
243 Ni=K:K=N:NEXTK: RETURN 

245 U=i:PRINT“DATI UGUALI":60SUB319:G0T0243 

247 GOSUB303:Ki=Ki+l:LC$=MC$<K,i>:LN$=MC$<K,2> 

249 NEXTK 

251 FF=1:RETURN 

253 REM 

255 REM TERMINA SCRITTURA FILE 

257 IFN1=NANDFF=1THENRETURN 

259 FORK=NlTON:IFMCStK,1>=SPSTHEN263 

261 GOSU8305:K1=K1+1 

263 NEXTK RETURN 

265 REM 

267 REM RICHIESTA PREPARAZIONE NASTRO 
269 PRINT"[<JMONT0 NASTRO” : G0SUB319 
271 RETURN 
273 REM 

275 REM RICHIESTA NOME FILE 

277 INPUT"l!]NOME FILE NFS: RETURN 

279 REM 

281 REM APERTURA FILE PER SCR1UERE 
283 0PEN1,1,2,NF$;RETURN 
285 REM 

287 REM APERTURA FILE DI STAMPA 
289 OPENNF J PR:RETURN 
291 REM 

293 REM APERTURA FILE PER LEGGERE 
295 OPENi,i,0,NFSRETURN 
297 REM 

299 REM LETTURA RECORD DA NASTRO 

301 FORJ=lTONC:INPUTMi,I$<J>:NEXTJ:FS=ST: RETURN 
303 REM 

305 REM SCRITTURA RECORD NASTRO DA VETTORI 
307 FORJ=lTONC 

309 IFLENtMCSIK,J>>=0THENMCS<K,J>=" " 

311 PRINTUÌ,MCS<K,J); CHS;:NEXTJ: RETURN 
313 REM 

315 REM MESSAGGIO FUORI ORDINE 

317 PRINT"l!]FUORI ORDINE ”1 $< 1 >SPSIS<2>: RETURN 

319 REM 

321 GETKEVAS:IFAS=”"THEN321:REM ATTESA TASTO 
323 RETURN 
325 REM 

327 REM INGRESSO NUOVI DATI 
329 FORJ=lTONC:IS<J)=” "NEXTJ 
331 PRINT'V; ■ J = 1G0SUB351 
333 IFIS<1> = "*"THENSW=i; RETURN 
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335 F0RJ=2T0NC:G0SUB35Ì HEXTJ: RETURN 
337 REM 

339 REM CONFERMA DATI E CORREZIONE 
341 PRINr'l-JCONFERMI S/N" : INPUTR$ 

343 I FR$="S'*THEHRETURN 

345 INPUT"QUALE CAMPO ";J 

346 IFJ<10RJ>NCTHEN345 

347 PRINTDS < J >" **; : IS< J>=" ”: INPUTI$<J> 

349 G0SUB359:G0T0339 

351 REM RICHIESTA CAMPO 

353 PRINTJ;" ";D$<J>;" ";:I$<J>=” ” 

355 INPUTI$<J> RETURN 
357 REM 

359 REM STAMPA DATI RECORD 
361 PRINT"Li"; :FORJ=lTONC 

363 PRINTJ;** "iDSU);** **; I$< J> - NEXTJ : RETURN 
365 REM 

367 REM ULTIMO MESSAGGIO 

369 PRINT** L1 I I I I I 1 I 1 R 1AUUOLGI IL NASTRO" 

371 PRINT**SE NECESSARIO" 

373 G0SUB319:RETURN 
375 REM 

377 REM RICHIESTA PRIMI DUE CAMPI 

379 PRINT"RISPONDI » PER USCIRE" 

380 I$<1>="":I$<2)="" 

381 PRINTD$<1);-INPUTI$<1) 

383 IFI$<1>="«"THENSH=1-RETURN 
385 PRINTDS< 2 >; :IMPUTISI 2) : RETURN 
387 REM 

389 REM RICERCA RECORD 
391 FORK=iTON 

393 IFMCSIK,i)=I$(i>ANDMCS<K J 2)=IS(2)THEN401 
395 NEXTK:SM=1 

397 PRINT"UNON TROUATO "; I $<i ) ; SPS; ISt2> 

399 G0SUB319:RETURN 

481 K1=K:K=N-NEXTK RETURN 


COMMENTO AL PROGRAMMA 

Il programma e' organizzato in modo che dopo aver preso visione 
di un quadro video, devi premere un tasto per proseguire; la co¬ 
sa e' realizzata con il sottoprogramma delle linee 319/323. 

.1/5: commenti. 

.7: PR e' il "dn" della periferica di stampa, noi abbiamo usato 
3 per far uscire sul video; puoi sostituire il dn della stam¬ 
pante se ne disponi. Nel caso tu abbia una stampante, dovresti 
migliorare il programma introducendo un contatore per il numero 
delle linee di stampa, in modo da cambiare foglio al momento giu-> 
sto. Per leggere piu' comodamente sul video i dati, durante la 
stampa ti conviene tenere premuto il tasto CBM LOGO. 
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Figura 4.3 Fase AGGIORNAMENTO di FILESEQ 
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.9: NF e' il numero logico del file di stampa, lo "lfn"; noi 
abbiamo usato 4. In realta' per fare uscire i dati sul video 
potevamo evitare di aprirlo come file, lo abbiamo fatto per ren¬ 
dere piu' semplice il trasferimento dell'uscita su una stampan¬ 
te. 

.11: NC e' il numero dei campi del record; viene usato per defi- 
nire le variabili con indice e per gestire i cicli. 

.13/15: dimensionamento del vettore di stringhe D$ che deve 
contenere le descrizioni dei campi del record, e del vettore di 
stringhe 1$, che deve contenere i dati da scrivere nel record, 
quando questi vengono letti dalla tastiera. 

.17: CH$ contiene il carattere RETURN, da usare come separatore 
nella scrittura dei campi; usiamo sempre CHR$(13) per non avere 
problemi con la lunghezza del record. SP$ contiene 3 spazi. 

.19/25: le due frasi DATA contengono le descrizioni dei campi, 
che vengono trasferite nel vettore D$ con la linea 25. Se si 
aumenta il numero dei campi NC, si devono aggiungere altri dati. 

.27/41 : presentazione del menu* principale per scegliere la 
funzione da svolgere. La linea 39 accetta la risposta, la 41 la 
controlla e accetta solo: 1, 2, 3 e 9. 

.43: se R=9 (FINE) viene eseguita la subroutine che chiede di 
riavvolgere il nastro se necessario e il programma si ferma. 

.45/55: viene chiesto il numero totale di record da elaborare, 
N. Esso serve per predisporre la zona per memorizzare il file in 
caso di aggiornamento. Questo dato e' importante e quindi ne vie-* 
ne chiesta conferma. 

.57/59: viene dimensionata la matrice di stringhe MC$, di N 
righe e NC colonne per contenere il file, se si devono operare 
aggiornamenti. 

.61 : scelta della funzione principale in base al valore di R. 

.63/89: fase di CREAZIONE ex novo del file; essa si esegue la 
prima volta. Alla 67 vengono eseguiti i sottoprogrammi per prepa¬ 
rare il nastro, richiedere il nome del file e aprire il file in 
scrittura. Alla 69 vengono poste a stringa nulla le due varia-* 
bili LC$ e LN$, che vengono usate per controllare la sequenza dei 
record caricati, in base ai primi due campi. Poi inizia un ciclo, 
da percorrere al massimo N volte, per caricare i record richie¬ 
dendo i dati dalla tastiera. Il sottoprogramma in 211 legge i 
nuovi dati dalla tastiera. Se ritorna con SWOO, questo signi- 
fica che il caricamento e' terminato, allora viene conservato in 
K1 il numero dei record scritti, che può' anche essere inferiore 
ad N, e si va alla fine di questa fase. Se e' stato caricato un 
nuovo record, ne viene controllata la sequenza rispetto al prece¬ 
dente; se va bene il record viene scritto con il sottoprogramma 
in 221 e viene chiesto un nuovo record. Se la sequenza non va be- 
ne questo viene segnalato; il record non viene accettato e potrà' 
essere aggiunto in una successiva fase di aggiornamento del file. 
In 87 e 89 viene segnalato quanti record sono stati caricati e in 
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quale file e il programma viene rilanciato con RUN. 

.91/111: fase di STAMPA. Alla 95 viene aperto il file di starna 
pa, richiesto di montare il nastro, richiesto il nome del file e 
aperto per leggere. Poi vengono letti i record uno alla volta con 
il sottoprogramma in 297, stampati ponendo sulla prima riga i 
primi due campi e sulla seconda gli altri quattro. Nel caso tu 
aumenti il numero dei campi, dovrai probabilmente modificare le 
istruzioni alle linee 103 e 105. Viene controllata la fine del 
file analizzando la variabile riservata di stato ST, trasferita 
al momento della lettura in FS, e, quando il file e' terminato, 
la fase si arresta e dopo i soliti messaggi viene rilanciato il 
programma con RUN. 

.113/129: inizia la fase di AGGIORNAMENTO. Come prima cosa vìe** 
ne trasferito in memoria, nella matrice MC$, il file, di cui e' 
stato chiesto il montaggio, il nome, ed e' stato aperto in lettu^ 
ra. Viene segnalato se il file e' piu' lungo del previsto numero 
di record, e in questo caso si ha uno STOP e ti consigliamo di 
ripartire dando per N un numero adeguato. Alla fine del carica-* 
mento viene segnalato il numero effettivo dei record letti. 
L'aggiornamento avviene in fasi successive; prima l'eventuale 
modifica dei record presenti in memoria, poi l'eventuale cancel-i 
lazione di qualche record, e poi il caricamento dei nuovi record, 
durante la fase di riscrittura del file. 

.131/11*7: fase MODIFICA record. Se non ci sono modifiche passa 
alla fase seguente. Alla 139 chiede i primi due campi del record 
da modificare con il sottoprogramma in 375; se al ritorno SWOO, 
significa che non ci sono piu' modifiche. Alla 141 ricerca in 
memoria il record voluto, se non lo trova SWOO e ne chiede un 
altro. Legge dalla memoria gli altri campi del record selezio-* 
nato e propone sul video tutto il record chiedendo quali campi 
vuoi modificare. Non devi modificare i primi due campi, perche' 
se lo fai alteri l'ordine dei record. Il programma riscrive in 
memoria solo i campi dal terzo in avanti, quindi anche se tu hai 
modificato i primi due, essi non vengono memorizzati. Per modifi-* 
care i primi due campi devi cancellare il record e poi riscri-a 
verlo. 

.149/161: fase CANCELLAZIONE. Come nella fase precedente ven* 
gono chiesti i primi due campi per individuare il record ed esso 
viene ricercato. Se esso viene trovato, vengono scritti degli 
spazi al posto del primo campo; in fase di riscrittura, se il 
primo campo contiene spazi, il record non viene scritto. 

.163/171: viene predisposta la riscrittura del file su nastro, 
chiedendo di montare il nastro e quale nome registrare in aper-> 
tura. Alla 167 vengono preparati i seguenti indicatori: 

. SW=0, se diventa 1 significa che non ci sono piu' nuovi record 
da aggiungere, 

. FF=0, se diventa 1 significa che sono stati già' scritti tutti 
i record della matrice MC$, 


95 



. K1=0, contatore dei record che ai scrivono, 

. N1=1, puntatore alla posizione del record nella matrice MC$. 

,173/175: richiesta se ci sono inserimenti. 

.177/209: fase INSERIMENTO e RISCRITTURA. Alla 181 viene chie-> 
sto un nuovo record; se viene fornito, vengono scritti sul nuovo 
file tutti i record di MC$, che precedono nell'ordinamento il 
nuovo record, e poi viene scritto il nuovo record. Non sono 
accettati record doppi. Quando MC$ e’ esaurito si procede solo 
con nuove acquisizioni; quando i nuovi record sono terminati si 
esaurisce MC$, se FF=0. La fase di riscrittura e' la piu' compii-» 
cata di tutto il programma, dato che vogliamo mantenere l'ordi-- 
namento dei record. Alla fine viene segnalato quanti record si 
sono scritti e il nome del file. 

.211/219: sottoprogramma lettura nuovi dati da tastiera, serven¬ 
dosi dei sottoprogrammi in 325 e 337. 

.221/229: scrittura nuovo record su nastro; i dati sono quelli 
ricevuti da tastiera. Ti facciamo notare che se un dato stringa 
ha lunghezza zero, esso viene sostituito con una stringa di uno 
spazio. Questo e' necessario perche' sul nastro venga registrato 
un campo valido; la stringa nulla viene saltata in fase di let¬ 
tura e produce uno scompenso nella struttura dei record, ognuno 
dei quali deve avere un numero prefissato di campi. Ricorda che 
se leggi da tastiera una stringa formata da uno o piu' spazi, es-> 
sa viene conservata come stringa nulla; questo non succede se usi 
SHIFT--spazio. Se, invece scrivi A$=" ", la stringa A$ ha lunghez¬ 
za 1 e quando la scrivi su nastro lo spazio viene registrato e 
conta come un campo. 

.231/251: ricerca posizione per il nuovo record in MC$. Viene 
segnalato se i dati sono fuori ordine o sono doppi. Se tutto be¬ 
ne vengono trasferiti sul file i record di MC$ che precedono 
quello nuovo. 

.253/263: viene portata su file l'ultima parte di MC$. 

.265/271: richiesta di preparazione nastro. 

.273/277: richiesta nome file. 

.279/283: apertura file per scrivere. 

.285/289: apertura file di stampa. 

.291/295: apertura file per leggere. 

.297/301: lettura record da nastro. 

.303/31 1 : scrittura record prelevato da matrice MC$, con modi-- 
fica eventuali stringhe nulle. 

.313/317: messaggio record fuori ordine. 

.319/323: attesa pressione tasto per proseguire. 

•325/335: ingresso nuovi dati da tastiera; accetta anche campi 
vuoti. 

.337/3*19: visualizzazione dati, richiesta conferma o corre¬ 
zione . 


.351/355: richiesta di un campo. 

.357/363: visualizzazione dati di un record. 
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•365/373: messaggio finale di ogni fase. 

•375/385: richiesta dati primi due campi, pone SW=1 se rispondi 
con * al primo campo. 

• 387/401 : ricerca record in MC$. 

Nel programma FILESEQ abbiamo usato la tecnica dei sottopro^ 
grammi, cioè' abbiamo scritto sotto forma di sottoprogramma tut-> 
ti i gruppi di istruzioni che devono essere eseguite piu' di una 
volta; questa tecnica, oltre che portare a un risparmio di memo¬ 
ria, evita errori di programmazione. 

Riportiamo l'elenco delle variabili usate nel programma: 

PR=3, dn periferica stampa 
NF=4, lfn file di stampa 
NC=6, numero campi del record 
D$(NC), descrizioni campi record 
I$(NC), dati del record 

CH$=CHR$(13), carattere separatore RETURN 

SP$, costante contenente 3 spazi 

R$, stringa per risposte 

R, numero della scelta 

N, numero record 

K, variabile controllo ciclo 

MC$(N,NC), matrice per contenere i record in memoria 
LC$, primo campo del record precedente 
LN$, secondo campo del record precedente 

SW, flag per controllare se e' stato fornito un nuovo record 
K1 , numero record caricati 
NF$, nome del file 

FS, per conservare la parola di stato ST 
ST, parola di stato 
J, variabile controllo cicli 
FF, controllo per record MC$ 

NI , puntatore a MC$ 

U, controllo record da inserire uguali a record MC$ 

La gestione del programma e' molto semplice: 

.vengono evidenziati messaggi di richiesta sul video e devi 
rispondere, 

.quando il quadro video e' fisso, e la cassetta non e' attiva, 
per proseguire devi premere un tasto, 

.per uscire dalle fasi di richiesta dati devi rispondere con * al 
primo dato, 

.devi stare attento al cambiamento del nastro o al suo riavvol- 
gimento per non perdere registrazioni. 

Per adattare FILESEQ alle tue esigenze puoi apportare le seguen¬ 
ti modifiche: 
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. porre PR a un nuovo valore, per usare una stampante, 

. modificare NC e modificare le linee DATA per le descrizioni dei 
campi. 

Resta comunque un programma che mantiene i record in ordine in 
base ai primi due campi; questa e' una cosa piu' difficilmente 
modificabile, potresti pero' mantenere uno dei campi sempre ugua¬ 
le a SHIFT-spazio e quindi ordinare solo su uno. 

Inoltre FILESEQ non accetta record doppi. 

Puoi aggiungere al programma altre parti, per ottenere altre 
funzioni, e puoi fare uso di alcuni dei sottoprogrammi di uso 
generale già' presenti. 

Il programma FILESEQ lascia liberi 56201 byte per le variabili; 
devi fare un po' di conti per decidere il massimo numero dì 
record gestibili con MC$. 


4.5 I JOYSTICK 

Il BASIC ci mette a disposizione un'istruzione per "leggere" lo 
stato dei Joystick: JOY(n), con n che può' essere 1 o 2, e corri¬ 
sponde alle prese JOY 1 e JOY 2. 

Questa istruzione può' essere usata per trasferire lo stato 
attuale del Joystick in una variabile, scrivendo, per esempio, 
A=J0Y(1). Oppure direttamente, per analizzare in tempo reale lo 
stato del Joystick, per esempio cosi': IF J0Y(1)=1 THEN.... 

I valori forniti dall'istruzione JOY(n) sono 9 + 9; essi 
corrispondono agli 8 movimenti possibili + lo stato di riposo, 
ottenuti con il solo movimento della leva, e agli 8 movimenti 
possibili + lo stato di riposo con l'aggiunta del fuoco, otte* 
nuti premendo il bottone rosso mentre si muove la leva. Lo sche-» 
ma che segue mostra le due situazioni possibili. 


8 

7 

1 

0 

2 

3 

136 

135 

129 

128 

130 

6 

5 

4 

134 

133 

1 32 

SOLO 

MOVIMENTO 

MOVIMENTO + 

FUOCO 


Per utilizzare i joystick come periferiche di Input e' neces¬ 
sario leggere il loro stato e produrre in conseguenza sul video 
delle azioni, che in generale sono di movimento, ma potrebbero 
essere di qualunque tipo, infatti dipendono dal programma. 

Abbiamo preparato il programma J0YSTICK1 per dimostrare la 
gestione dei joystick in BASIC; esso gestisce il joystick 1 . In 
esso abbiamo creato dei cicli di attesa per consentire di analiz- 
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zare gli effetti prodotti. Il programma lavora con il vìdeo in 
modo testo. Inizialmente viene disegnato un quadratino nero in 
posizione 14,14. Le posizioni corrispondenti (primo numero per 
riga, secondo per colonna) ai possibili movimenti sono: 


13,13 

13.1*1 

13,15 

111,13 

14,1*1 

14,15 

15,13 

15,14 

15,15 


1 REM J0VSTICK1 
4 REM STRINGHE PER MOUIMENTO 
7 EGS=‘ , i'L'I‘L'L»t*L»L»L‘L'L‘L'E'L‘L'E'L‘L l L'L‘) 11 

10 . .. 

13 R3$=LEFTS<RDS,13):R4S=LEFTS<RDS,14) 

16 R5S=LEFTS<RDS,15) 

19 C3S=LEFT$<CGS,13):C4S=LEFTS(CGS,14) 

22 HS =,, 1234567890“ 

25 C5$=LEFTS<CGS,15) 

28 REM SPAZIO INVERSO E DIRETTO 
31 SS="ld ■":HS=" " 

34 REM NUMERAZIONE RIGHE E COLONNE 
37 PRINT"L“MS;MS;MS;MS 

40 PRINT"H":FORK=2TO10:PRINT"||";K:NEXTK 
43 FORK=1TO10 : PRINT"||"; K : NEXTK 
46 F0RK = 1T04: PRINT"||"; K : NEXTK : PRINT“H”5; 
49 REM QUADRATINO A RIGA 14, COLONNA 14 
52 PRINt"B";C4$;R4$;"a";S$; 

55 REM LETTURA JOYSTICK 1 
58 A=J0Y<1):IFA=0THEN58 
61 FORK=1TO308:NEXTK 

64 PRINT"ET‘; C4S; R4S; NS;-REM CANCELLA 
67 IFA=128THEN148 
70 IEA>128THEN112 
73 REM SOLO MOUIMENTO 
76 0NAG0T082,85,88,91,94,97,100,103 
79 STOP 

82 PRINT"H";C3S;R4S;"b";SS; G0T0109 
85 PRINT"0";C3S;R5S;SS;:GOTO109 
88 PRINT"{!)"; C4S ; R5S; "b“; SS;:GOTO109 
91 PRINT' , 0“;C5$;R5$; , V;S$; GOTO109 
94 PRINT ,, H”; C5S; R4S; SS; :GOTO109 
97 PRINT"H";C5S;R3S;SS;:GOTO109 
100 PRINT ,, H ,, ;C4S;R3S;"b";S$; GOTO109 
103 PRINT"H";C3S;R3S;"b";SS; GOTO109 
106 REM CICLO DI ATTESA, POI RICOMINCIA 
109 FORK=1TO300:NEXTK:A=0:GOTO37 
112 REM MOUIMENTO + FUOCO 
115 A=A-128 
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118 0NAG0T0124, 127,138,133,, 138,139,142,145 
121 STOP 

124 PRIHT ,, H ,, ;C3S;R4S;"Q ,, ;SS; G0T0189 
127 PRINT“H ,, ;C3$;R5S; ,, g ,, ;S$; GOTOI03 

138 PRINT ,, H ,, ;C4S;R5S; ,, 3 ,, ;SS; G0T0189 
133 PRIIIT ,, a ,, ;C5$;R5$; ,, g , *;S$; GOTO109 
136 PRINT ,, H ,, ;C5S;R4$; ,, g ,, ;SS; : GOTO109 

139 PRINT ,, H ,, ;C5$;R3$; ,, g ,, ;S$; :GOTO109 
142 PRINT"H ,, ;C4$;R3$; ,, g ,, ;S$; :GOTO109 
145 PRINT"H ,, ;C3S;R3$; ,, g ,, ;SS; GOTO109 
148 REM SOLO FUOCO 

151 PRINT"H";C4$;R4$; ,, g";S$; GOTO109 


COMMENTO A J0YSTICK1 

.1/25: prepara stringhe di caratteri di controllo per spostarsi 
sul video verso il basso e verso destra. R3$ manda a destra di 13 
posizioni. R4$ manda a destra di 14 posizioni. R5$ manda a destra 
di 15 posizioni. C3$ manda in giu' di 13 posizioni. C4$ manda in 
giu' di 14 posizioni. C5$ manda in giu' di 15 posizioni. M$ ser- 
ve per numerare le colonne del video. 

.28/31 : S$ serve per visualizzare uno spazio in campo inverso, 
N$ per visualizzare uno spazio e quindi cancellare quanto presen¬ 
te in quella posizione. 

.34/46: numera le righe e le colonne del video. 

.49/52: visualizza un quadratino nero nella posizione 14,14. 

.55/64: legge lo stato del joystick 1 fino a quando lo trova 
diverso da 0, crea un ciclo di attesa, e cancella il quadratino 
dalla vecchia posizione. 

.67/70: se stato=128 va alla linea 148; se stato>128 va alla 
linea 112. 

.73/103: in base al valore letto esegue il movimento, cioè' 

disegna il quadratino nella nuova posizione in nero. 

106/109: crea un ciclo di attesa e poi torna alla linea 37 per 
ricominciare. 

112/145: in base al valore letto esegue il _movimento, cioè' 

disegna il quadratino nella nuova posizione in rosso, per segna-’ 
lare che e' stato premuto anche il bottone del fuoco. 

148/151: disegna nella vecchia posizione il quadratino in ros^> 
so, per segnalare solo bottone del fuoco. 

Abbiamo preparato il programma J0YSTICK2 per dimostrare la 
gestione dei joystick in BASIC con video grafico; esso lavora con 
il joystick 1. In esso abbiamo preparato un piccolo rombo e lo 
abbiamo memorizzato come SHAPE nella stringa D$. Lo stato del 
joystick 1 viene usato per spostare lo SHAPE sul video. Anche in 
questo caso abbiamo creato dei cicli di attesa per consentire di 
studiare le caratteristiche dei joystick. Se viene premuto anche 
il bottone del fuoco il rombo viene colorato di nero nella vec- 


100 



chia posizione, poi viene cancellato e disegnato nella nuova 
posizione. La posizione iniziale e' XI=154, Y1=99- Gli incre¬ 
menti per XI e Y1 in base ai movimenti (primo numero per X, 
secondo per Y) sono i seguenti: 


-10, 

-10 

0, 

-10 

o 

o 

“10, 

0 



10 , 

0 

“io. 

10 

0, 

10 

10 , 

10 


1 REM JOYSTICK? 

4 REM ATTIVA MODO GRAFICO 
7 GRAPHIC1,i 

10 REM PREPARA SHAPE, PICCOLO ROMBO 
13 X=159:Y=99 

16 DRAI41, X, Y TO X+5.V+5 TO X.Y+10 

19 DRAW1 TO X-5,V+5 TO X,V 

22 SSHAPEDS,X-5,V,X+5,Y+10 

25 X1=X-5:Y1=V 

28 REM INTERROGA JOYSTICK 1 

31 A=JOY(1) 

34 IFA=0THEN31 

37 IFA=128THEN85 

40 IFA^12«THEN97 

43 REM USO JOYSTICK SENZA FUOCO 

46 REM XD E VD INCREMENTI COORDINATE 

49 IFA=1THENXD=0 VD=-10:G0T076 

52 IFA=2THENXD=10:YD=-10:G0T076 

55 IFA=3THENXD=10:YD=0GOTO76 

58 IF A=4THENXD=10:YD=10:G0T076 

61 IFA=5THENXD=0:YD=±0:G0T076 

64 IFA=6THENXD=-10:VD=10:GOTO76 

67 IFA=7THENXD=-10:YD=0GOTO76 

70 IFA=8THENXD=-10:YD=-10:G0T076 

73 REM CANCELLA UECCHIO E DISEGNA NUOVO 

76 FORK=1TO300:NEXTK:GSHAPEDS,XI,Y1,4 

79 Xi=Xi+XD:Yl=Yl+YD 

82 GSHAPEDS,XI,VI:FORK=1TO300:NEXTK G0T031 

85 REM SOLO FUOCO, COLORA VECCHIO 

88 REM CANCELLA E DISEGNA VECCHIO 

91 PAINT,Xl+5,Yl+5:FORK=1TO300:NEXTK 

94 GSHAPEDS,XI,Y1G0T031 

97 REM MOVIMENTO + FUOCO 

100 REM COLORA VECCHIO E POI CANCELLA 

103 REM DISEGNA NUOVO 

106 PAINT,Xi+5,Yl+5 FORK=1TO300:NEXTK 
109 GSHAPEDS,XI,Yi 
112 IFA=129THENXD=0:YD=-10:G0T076 
115 IFA=130THENXD=i0:YD=-10:G0T076 
118 IFA=131THENXD=10:VD=0:G0T076 
121 IFA=132THENXD=10:YD=10:G0T076 
124 IFA=i33THEHXD=0:YD=10:GOTO76 
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12? IFft=134THENXD=-i0:VD=10:G0T076 
130 IF0=135THENXD=-10:VD=0:G0T076 
133 IFft=136THEHXD=-10:VD=-10:G0T076 


COMMENTO A J0YSTICK2 

1/7: passa in modo grafico e cancella il video. 

10/25: prepara il disegno e lo memorizza. Le coordinate della 
prima posizione sono X1=154 e Y1=99, angolo in alto a sinistra 
del rombo. 

28/l|0: memorizza lo stato del joystick 1 e sceglie in base al 
valore da dove proseguire. 

^3/70: caso solo movimento: in base al valore letto prepara XD e 
YD, incrementi per XI e Y1, per definire la nuova posizione e 
prosegue. 

73/82: crea un ciclo di attesa, cancella vecchio disegno, ìncre-> 
menta XI e Y1 e disegna nella nuova posizione, poi torna a leg¬ 
gere lo stato del joystick 1. 

85/94 : caso solo fuoco: colora il rombo nella vecchia posizio-< 
ne, crea un ciclo di attesa, lo cancella e lo ridisegna. 

97/133: caso movimento + fuoco: colora il rombo nella vecchia 
posizione, crea un ciclo di attesa, ridisegna nella vecchia 
posizione, poi prepara XD e YD, e va alla linea 76. 
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CAPITOLO 5 


I FILE SU STAMPANTE 


5.1 INTRODUZIONE 

In questo capitolo descriviamo l'uso della stampante COMMODORE 
MPS-803, ohe viene di norma venduta per il calcolatore COMMO- 
DORÈ PLUS-iJ. Il calcolatore può' essere collegato anche ad altre 
stampanti senza problemi; alcune si possono collegare diretta^ 
mente, per altre e' necessaria un'interfaccia speciale. La mag- 
gior parte dei discorsi che facciamo restano validi anche per 
altri tipi di stampanti; nel caso devi chiederne al venditore le 
caratteristiche, vedere se e' necessaria un'interfaccia e leg-> 
gere accuratamente il manuale allegato per scoprire le diffe- 
renze. 

La MPS-803 e' una stampante a impatto a matrice di punti, nella 
quale un carattere e' formato da 6 punti orizzontali e 7 punti 
verticali. Essa riconosce e stampa tutti i caratteri dei due set 
disponibili sul COMMODORE PLUS-4: maiuscolo/grafico e 

minuscolo/maiuscolo. Inoltre può' stampare colonne di punti (7 
punti verticali) e quindi e' una stampante grafica; la colonna di 
punti deve essere opportunamente codificata. 

Essa si collega tramite l'interfaccia seriale standard al COMMO¬ 
DORE PLUS- 1 !, mediante il cavo fornito che termina con uno spinot¬ 
to DIN a 6-pin. 

Sulla parte superiore della MPS-803 sono visibili: 

.in alto a sinistra, la manopola per l'avanzamento manuale del¬ 
la carta; 

.in alto a destra, la levetta per il bloccaggio della carta (da 
usare quando non e’ montato il trascina moduli); 

.in basso a destra, una spia luminosa rossa, marcata Power, che 
segnala: 

.con luce continua che la macchina e' accesa, 

.con luce intermittente che si e' verificato un errore, 
e vicino un tasto a pressione, marcato Paper Advance, per l'avana 
zamento della carta. 

La copertura anteriore può' essere sollevata, agendo su due appo¬ 
siti incavi laterali. Per inserire il nastro inchiostrato si de¬ 
ve sollevare tale copertura e si rende visibile l'alloggiamento 
del nastro. Nel manuale allegato alla stampante sono riportate 
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delle illustrazioni che insegnano a montare il nastro. 

Sul lato destro in basso si trova l’interruttore di accensione. 

La stampante può' essere alimentata con moduli contìnui o con 
fogli singoli, usando la levetta di bloccaggio della carta (quan- 
do e' in posizione OPEN la carta e' libera); oppure può' essere 
montato il trascina moduli, richiedendolo al venditore. La 
larghezza della linea di stampa e' di 80 caratteri (larghi 6 pun- 
ti), quindi di 480 punti. Possiamo assumere la larghezza della 
linea di stampa come dimensione del record fisico. La stampa e' 
bidirezionale e la velocita' di stampa e' di 60 caratteri al 
secondo. Si possono stampare fino a 3 copie. La stampante non 
può' funzionare se la carta non e* inserita. Quando, durante la 
stampa, termina la carta, comincia a pulsare la spia rossa Power 
e la stampa si interrompe; per proseguire devi inserire nuova 
carta e premere il tasto Paper Advance. 

Lo switch posteriore DEVICE può' essere posto nella posizione 4 o 
nella posizione 5, dando la possibilità’ di scegliere il "dn" 

della stampante. Di solito si usa il 4, ma, se sono collegate 
contemporaneamente due stampanti, una deve avere dn=5. 

Lo switch posteriore LPI può' essere posto nelle posizioni 6 o 8; 
esso indica la distanza di 1/6 o 1/8 di pollice tra due linee di 
stampa. 

La porta seriale SERIAL INTERFACE dispone di due ingressi; uno 
serve per collegare la stampante al calcolatore, l'altro per 
collegare in cascata una seconda stampante o una unita' a floppy- 
disk. Si possono collegare in cascata piu' periferiche (vedi 
Paragrafo 7.10). 

Il COMMODORE PLUS-4 può' inviare dati alla stampante dopo avere 
stabilito una comunicazione con essa; la stampante riceve un 
flusso di dati e stampa un file. La MPS-803 contiene un micropro- 
cessore che gestisce le operazioni di stampa, eseguendo apposite 
routine memorizzate in una ROM interna, servendosi di una deaeri-* 
zione dei caratteri memorizzata in una ROM interna, e di un buf¬ 
fer di stampa, cioè' di una parte di RAM interna. 

Il COMMODORE PLUS-4 invia i dati, attraverso l'interfaccia seria¬ 
le, un bit dopo l'altro; ogni gruppo di 8 bit (un byte) contiene 
un codice ASCII, che può' variare da 0 a 255. I byte sono rice¬ 
vuti e memorizzati uno dopo l'altro nel buffer, che può' conte¬ 
nere fino a 90 byte; vedremo piu’ avanti in quali circostanze 
avviene realmente la stampa. 

Alcuni dei codici inviati non sono caratteri da stampare, ma 
codici di controllo che agiscono sul modo di funzionare della 
stampante. 

Quando la stampante funziona, al momento dell'accensione, sia che 
sia collegata al calcolatore, sia che non lo sia, la testina di 
stampa viene spostata dal centro verso sinistra e poi riportata 
al centro. Per vedere se la stampa e' corretta puoi farle esegui- 
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re 1 'auto-test. Devi procedere così': 

.aver montato correttamente il nastro e inserito la carta, 

.dare corrente alla stampante, anche non collegata al calco-» 
latore, mentre tieni premuto il tasto anteriore "Paper Advance", 
poi rilasciare tale tasto. 

La stampante stampa ripetutamente tutti i caratteri stampabili. 
Per interrompere il test devi togliere corrente. 


5.2 ISTRUZIONI DI STAMPA 

Prima di stampare si deve aprire la comunicazione tra il calco-i 
latore e la stampante con l'istruzione OPEN; essa si scrive: 

OPEN lfn,dn,sa 

•lfn (Logicai File Number), e' il numero logico del file che si 
vuole aprire e che deve essere usato nelle istruzioni di stampa 
successive; esso può' variare da 0 a 255. Se lfn>127 si ottiene 
una spaziatura doppia tra una linea e la successiva. 

.dn (Device Number), e' il numero della periferica, può' essere 
( o 5, e deve essere quello predisposto dall'apposito switch 
posto sul retro della stampante. 

.sa (Secondary Address), e' un numero che può' valere 0 (valore 
di default) o 7 e determina il set di caratteri che la stampante 
deve usare nelle successive operazioni di stampa: 

.0, o niente, per il set maiuscolo/grafico, 

.7. per il set minuscolo/maiuscolo. 

I parametri possono essere costanti o variabili con valore inte¬ 
ro . 

II set di caratteri scelto con la OPEN resta attivo fino alla 
CLOSE; si può' usare all'interno della lista di stampa un codice 
di controllo che modifica temporaneamente il set, ma esso e' 
valido solo per la stampa in corso, cioè' fino al primo carat¬ 
tere RETURN. 

L'istruzione di stampa e’: 

PRINT# lfn,lista 

.lfn, deve essere lo stesso usato nella OPEN. 

.lista, e' l'insieme dei dati da stampare, dei caratteri separa¬ 
tori, delle funzioni di stampa e dei codici di controllo per la 
stampante. Negli esempi successivi vedremo le caratteristiche di 
ogni elemento che può' comparire nella lista. 

Per scrivere questa istruzione non si può' usare il "?" per 
abbreviare la parola chiave, inoltre non deve esserci spazio pri¬ 
ma del carattere 
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Il calcolatore, dopo aver eseguito un'istruzione PRINT#, chiude 
la comunicazione con la stampante, ma il file logico rimane aper- 
to-, esso viene chiuso solo dall'istruzione CLOSE. 

Si può' stampare su carta, anche usando l'istruzione CMD, dopo 
aver aperto un file per la stampante. Questa istruzione trasfe¬ 
risce l'uscita, che normalmente avviene sul video, alla stampan¬ 
te. Si scrive: 

CMD lfn,lista 

.lfn, deve essere lo stesso usato nell'istruzione OPEN. 

-lista, può' essere una normale lista di stampa o mancare. 

Dopo l'esecuzione di CMD, con o senza "lista", le successive 
istruzioni PRINT (scritte senza il carattere "#") mandano 
l'output sulla stampante. Per far terminare l'effetto di CMD, 
cioè' il "dirottamento" dell'uscita dal video a un'altra perife¬ 
rica, e' necessario eseguire una PRINT#lfn, con "lfn" uguale a 
quello usato per CMD, che serve per chiudere la linea, prima del¬ 
la CLOSE. In caso contrario non si ha un funzionamento corretto 
del sistema; inoltre, quando si e' in stato CMD, non si deve 
accedere a un'altra periferica collegata in serie (disco o altra 
stampante). Il comando LIST, usato dopo CMD, provoca la lista del 
programma sulla stampante. 

Il modo corretto per ottenere la lista dei programmi sulla stam¬ 
pante e' eseguire in immediato: 

OPENi), IJ : CMD4 : LIST : PRINTM : CL0SE4 

può' essere utile assegnare a un tasto funzione la sequenza di 
istruzioni necessarie per listare i programmi, eseguendo per 
esempio: 

KEY1,"0PEN4,4 :CMD4 :LIST : PRINT#4 :CL0SE4 "+CHR$ (13) 

in modo che premendo FI si ottiene la lista con chiusura correte 

ta del file. 

Quando le operazioni di stampa sono terminate, deve essere 
eseguita l'istruzione: 

CLOSE lfn 


che serve per chiudere la comunicazione. Dopo l'esecuzione della 
CLOSE non si può' piu' comunicare con il file "lfn", se non si 
esegue nuovamente una OPEN. 

E' importante non lasciare aperti i file che non servono piu'; si 
rischia di occupare inutilmente posto nella tabella dei file, che 
ha solo 10 posti. 
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Le istruzioni di stampa possono essere usate sia in modo imme¬ 
diato che da programma. 

ESEMPI DI STAMPA IN MODO IMMEDIATO 

Usando in modo immediato le 4 sequenze di istruzioni che seguo¬ 
no, si ottiene sempre lo stesso risultato sulla stampante e si 
opera correttamente chiudendo sia la linea che il file logico. 

.1 ) 

0PEN4,4 :PRINT//4 , "MPS-803" : CL0SE4 
stampa MPS-803 e va a capo. 

. 2 ) 

0PEN4,4:CMD4,"MPS-803":PRINT#4:CL0SE4 
stampa MPS-803 e va a capo. 

.3) 

0PEN4,4:CMD4:PRINT"MPS-803":PRINT#4:CL0SE4 
stampa MPS-803 e va a capo. 

.4) 

0PEN4,4,7:CMD4:PRINT"MPS-803":PRINT#4:CL0SE4 
stampa mps-803 (abbiamo usato sa=7) e va a capo. 


ESEMPI DI STAMPA DA PROGRAMMA 

Il programma SAOCMDLIST, che segue con i suoi risultati, apre il 
file logico con lfn=1 sulla stampante (dn=4), usando sa=0, che 
poteva anche essere saltato, dato che 0 e' il valore di default, 
e quindi lavora con il set maiuscolo/grafico. Nel programma alla 
linea 15 e' inserito il comando LIST, cioè' il programma lista se 
stesso, poi continua e stampa una frase. Alla linea 25 viene 
eseguita l'istruzione PRINT#1 per chiudere la linea e poi la 
CL0SE1. 


1 REM SFIOCMDLIST 

5 OF'ENl.. 4, G • REM OPRE CON Sfi=Q 

lo CMDl'REM USCITO OR VIDEO fi STAMPANTE 

15 LIST : FRINT 

20 FRINT"OPEN CON Sfi=0 E USO CMD E I IST" 
25 FRINT #1 : CLOSE1 

OPEN CON Sfi=0 E USO CMD E LIST 


Il programma SA7CMDLIST e' uguale al precedente, salvo che apre 
il file di stampa con sa=7 e quindi lavora con il set di carat¬ 
teri minuscolo/maiuscolo. 
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Segue il programma SETMPS->803, che stampa in forma tabellare i 
due set di caratteri disponibili sulla stampante. Il disegno dei 
caratteri e' quello registrato nella ROM interna alla stampante, 
che differisce un po' dalla forma dei caratteri che appare sul 
video: 6x7 punti per la stampante, 8x8 punti sul video. 

1 rem s.s.7cr«dl ist 

5 oPen 1 4 > 7 : rem apre cori sa=7 

IO crudi 1 II rei» uscita, da. video a. stampante 

15 1istsprint 

20 P r i nt" oP eri con sa.=7 •=■ uso crnd •=■ list" 

25 P r int#leiose1 

oPen con sa.=7 e uso crnd e list 


I caratteri da stampare sono inviati come codici ASCII; il 
programma stampa spazi al posto dei caratteri corrispondenti ai 
codici da 0 a 31 e da 128 a 159, formando le due colonne vuote 
nelle tabelle, dato che non corrispondono a caratteri stampa-» 
bili. Le coordinate orizzontali e verticali delle due tabelle so-« 
no espresse in esadecimale (le cifre esadecimali da A a F 
corrispondono ai numeri decimali da 10 a 15). Per ottenere il 
codice ASCII dei caratteri devi moltiplicare per 16 la coordi* 
nata di colonna (sopra) e aggiungere la coordinata di riga (late^ 
rale). 


I REM SETMPS—803 

5 0*=" SET NHIIJSCOLO/GRRFICO" 

6 Sfl=0 

10 0PEH4,4, SPI : PRI NT#4, PI* 

II PRINT#4 :FRINT#4," I " ; 

12 F0RK=@T09 : PRINT#4 , MID$<STR*<K> » 2>;" "; 

13 NEXTK 

14 FORK=65TO70 = PR INT#4, CHR$ c:K> ; " " .; : NEXTK 

15 PRINT#4 : PRINT#4»CHR*C192>"H"; 

IR F0RK=1T016 ^ PRINT#4•CHRSC192>CHR*<192>; 

17 NEXTK ^ PRINT#4=I=0 

19 FORK=0TO9 : PRINT#4, MID*<STR*<K> , 2> .: " I " 1 

20 GOSUB100 : I = I+1 : NEXTK 

23 F0RK=65T070 • PR I NT #4, CHR$ C K > ; " I 
25 GOSUB100 : 1=1+1 ; NEXTK 

27 IFSR=7THENCL0SE4 = STOP 

29 PRINT#4 : PRINT#4•Sfi=7 

30 RT=" SET MRIUSCOLO/tlIMUSCOLO“ 

31 QL0SE4: GOTOlo 

1 00 IK=I=F0RL=1TO16 

101 IFIK<32THENPRINT#4 > " ";=GOTO104 

102 IFIK>127RNDIKC160THENPRINT#4, " ,, .:=GOTO104 

103 PR I NT#4.. CFIR*< IK > : " " .: 

104 IK=IK+16 = NEXTL = PRINT#4 = RETURN 
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RISULTATI PROGRAMMA SETMPS-803 
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COMMENTO A SETMPS-*803 

.5/6: prepara in A$ l'intestazione della prima tabella e pone 
SA=0. 

.10: apre il file logico con lfn=4, il valore attuale di SA per 
la stampante, e stampa il titolo della tabellina. 

.11/17: stampa le coordinate di colonna e le linee separatrici 
(CHR$(192) da' luogo a un trattino), e pone il contatore I a 0. 

.19/20: stampa le linee corrispondenti alle coordinate di riga 
da 0 a 9, servendosi del sottoprogramma in 100 per stampare i 
caratteri del set attivo. 
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.23/25: come sopra per le linee con cordinate da A a F. 

.27: se SA=7 chiude il file logico e si ferma. 

.29/31 : pone SA=7, prepara la nuova intestazione in A$, chiude 
il file logico e torna alla linea 10 per stampare la seconda 
tabellina. 

.100/104: sottoprogramma che in base al codice del carattere, 
che trova inizialmente in I e pone in IK, stampa, se sono stampai 
bili, i 16 caratteri di una linea. Non stampa il carattere se il 
codice e' minore di 32 oppure compreso tra 128 e 159, estremi 
inclusi. I caratteri che stanno su una linea hanno codici che 
differiscono di 16 da quello precedente. 


5.3 MODI DI STAMPA E USO DEI CARATTERI DI CONTROLLO 

Il valore di "sa" usato nella OPEN predispone l'uso di uno dei 
due set di caratteri disponibili nella MPS->803, in modo perniai 
nente, fino all'esecuzione della relativa CLOSE. Il valore di 
"sa" influenza la stampa in MODO CARATTERE, cioè' quella attiva 
al momento dell'accensione della stampante. Per ottenere il 
passaggio al MODO GRAFICO devi inviare un carattere di controllo 
(CHR$(8)); in tale caso e’ necessario inviare un altro carattere 
di controllo per tornare al modo testo (CHR$(15)). 

Possiamo considerare come una prima distinzione nelle posali 
bilita' di stampa i due modi: carattere e grafico; ad essi 
possiamo aggiungere gli altri modi che si ottengono con l'uso di 
alcuni caratteri di controllo. Segue l'elenco dei caratteri di 
controllo che hanno un particolare significato per la stampante 
MPS-803; essi devono essere inviati nella "lista" di un'istruì 
zione PRINT diretta alla stampante, come stringa, usando la 
funzione CHR$. Per ogni carattere indichiamo: il codice, il 
significato, i parametri che devono seguire il codice, se necesn 
sario, e il numero dei byte che vengono occupati in conseguenza 
nel buffer della stampante. Se un codice richiede dei parametri, 
ovviamente questi vengono trasmessi, ma non stampati. Alcuni 
codici vanno usati insieme ad altri, altrimenti perdono signli 
ficato. 

Tieni presente che i codici di controllo hanno in generale signii 
ficato diverso se diretti al video invece che alla stampante; gli 
unici che producono lo stesso effetto sono 10, 13. 18 e 146. 


CODICE 

SIGNIFICATO 

PARAMETRI 

NUM. BYTE 

8 

MODO GRAFICO 

no 

1 

10 

invio LINE FEED 
e RETURN 

no 

1 

13 

invio LINE FEED 
e RETURN 

no 

1 


110 



14 

MODO CARATTERE 
ALLARGATO 

no 

i 

15 

MODO CARATTERE 
NORMALE 

no 

i 

16 

SPOSTAMENTO PO- 
SIZIONE STAMPA 

A UNA COLONNA 

2 

3 

17 

PASSAGGIO SET 
MINUSC./MAIUSC. 

no 

1 

18 

MODO RVSON 

no 

1 

26 

MODO RIPETIZIO¬ 
NE CAR. GRAFICO 

1 

2 

27 

SPOSTAMENTO PO¬ 
SIZIONE GRAFICA 
deve essere se¬ 
guito da CHR$(16) 

2 

4 

145 

PASSAGGIO SET 
MAIUSC./GRAFICO 

no 

1 

146 

MODO RVS=*0FF 

no 

1 


Esaminiamo dettagliatamente i singoli codici di controllo, ripor¬ 
tando alcuni programmi esempio. In alcuni programmi esempio 
abbiamo usato la tecnica di far lavorare il programma stampando i 
risultati, poi il programma lista se stesso; in conseguenza, in 
questi casi, vedrai prima i risultati e poi il listato del 
programma. 

CHR$(8) MODO GRAFICO 

Predispone la stampa in modo grafico; tale modo resta attivo fi- 
no all'invio dei codici di controllo 14 o 15, che riportano 
rispettivamente in modo carattere allargato e in modo carattere 
normale. 

Dopo aver attivato il modo grafico devi passare nella lista di 
stampa i codici dei caratteri grafici da stampare, come stringa. 
Ogni carattere grafico e' formato da una colonna di 7 punti, e 
viene codificato secondo le seguenti regole: 

.i punti da disegnare devono corrispondere alla cifra 1, quelli 
da non disegnare devono corrispondere alla cifra 0, 

.le 7 linee hanno pesi diversi, partendo dall'alto i pesi sono: 
1, 2, 4, 8, 16, 32, 64, cioè' le potenze di 2, partendo dall'e¬ 
sponente 0 e arrivando all'esponente 6, 

• devi moltiplicare ogni cifra per il peso corrispondente e som- 
mare i valori, per una colonna con 7 cifre 1 ottieni 

I +2+11+8+16+32+6i1=127, per una colonna con 7 cifre 0 ottieni 0, 

.al numero ottenuto devi aggiungere 128, in tale modo il codice 

calcolato può' variare da 128 a 255. 

II codice deve essere passato nella "lista" di stampa con la 
funzione CHR$. Se desideri ottenere un disegno composto da piu' 
colonne, devi ripetere il procedimento spiegato per ogni colon- 
na. 
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Abbiamo preparato il disegno di un omino con le braccia alzate, 
occupando 11 colonne di 7 punti; lo riportiamo indicando con 
asterischi i punti da disegnare e con lineette quelli da lascia¬ 
re in bianco. Inoltre riportiamo di fianco l'immagine ottenuta 
con 0 e 1 e con a margine i pesi di ogni punto e sotto ogni 
colonna il codice risultante dal calcolo. 



1) 

0 

1 

1 

0 

1 

1 

1 

0 

1 

1 

0 


2) 

0 

0 

1 

1 

0 

1 

0 

1 

1 

0 

0 

ra- — # # # # 

4) 

0 

0 

0 

1 

1 

1 

1 

1 

0 

0 

0 


8) 

0 

0 

0 

0 

1 

1 

1 

0 

0 

0 

0 


16) 

0 

0 

0 

0 

1 

1 

1 

0 

0 

0 

0 


32) 

0 

0 

0 

1 

1 

0 

1 

1 

0 

0 

0 


64) 

0 

1 

1 

1 

0 

0 

0 

1 

1 

1 

0 

Valore codici: 

0 

65 

67 

102 

61 

31 

61 1 

02 

67 

65 

0 

Aggiungendo 128 agli 
128, 193. 195, 230, 

11 

189 

codici 

. 159, 

otteniamo 
189, 230, 

195 

t 

193, 

128 


passando dopo CHR$(8) le funzioni CHR$ degli 11 codici otteniamo 
il disegno di un omino. Il nostro disegno e' simmetrico e inizia 
e finisce con una colonna bianca; per questo disegnando vicino 
alcuni omini essi non risultano attaccati insieme. 

Nel programma C0D8-1 abbiamo inserito gli 11 numeri con una linea 
DATA, la H; poi prepariamo nella stringa A$ l'omino completo co¬ 
me stringa; stampando A$, in modo grafico, otteniamo il dise-i 
gno. 


x x x x x 
xxxxxxx 
xxxxxxxxx 
xxxxxxxxxxx 


1 rem codS—1 

2 operilo, 4..7 

3 cmdlo 

4 da.te.0, 65, 67, 102,61,31.411,1 nv . £7 . fis . q 

5 " forbitoli 

6 re.s.d.i : .j=a+l£y 

7 »t=s*+chr*<») 

S next.j 

9 forK— lt,o5 

1 0 P r i n t c h r 4 <. 8 > a. 4, 

11 next-K : P r i nt : P r i nt 

12 f or-K= 1to7 

13 Prints.i; 

14 nextk P rint : Print 

15 f orK=1to9 
lfc. Printaì; 
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17 nextK ^ P r i nt : p r- i nt 

18 forbitoli 
ly Printa$; 

2 0 n ■=• x t K : P r i n t 

21 Pri n t c h r $ <■. 15 > 

22 Print•list : Pri nt# 10 : c1ose10 


COMMENTO A C0D8^1 

.2/3: apre la stampante con lfn=10 e sa=7, con CMD10 trasfei 
rlsce l'uscita video alla stampante. 

•H: linea DATA con i codici delle 11 colonne di punti, prima di 
aggiungere 128. 

.5/8: legge gli 11 codici, aggiunge 128 a ogni codice e costruii 
sce la stringa A$ con il disegno. 

.9/11: stampa 5 omini, dopo aver attivato la stampa grafica con 
CHR$(8). Il codice e' usato all'interno del ciclo FOR, e quindi 
viene inviato 5 volte; bastava inviarlo una sola volta prima del 
ciclo FOR. Alla linea 11 esegue 2 volte PRINT, la prima volta per 
andare a capo e la seconda per produrre uno spazio. In modo gra-» 
fico la distanza tra le righe e' minore rispetto al modo carati 
tere. 

•12/1M: stampa 7 omini, lavorando come sopra, ma senza inviare 
di nuovo il codice 8. 

.15/17: stampa 9 omini. 

; 18/20: stampa 11 omini. 

.21: ritorna in modo carattere normale stampando CHR$(15) 

.22: lista se stesso, chiude la linea e il file. 


Nel programma esempio C0D8-2, abbiamo disegnato una casetta che 
occupa un rettangolo di 17 colonne e 21 righe. Per poterla stami 
pare la dobbiamo dividere a strisce alte 7 punti ciascuna; ottei 
niamo 3 strisce. Stamperemo le tre parti una per riga, una sotto 
l'altra. 

Per evitare la fatica di calcolare i codici abbiamo disegnato la 
casetta in 21 linee di programma, 21 linee DATA, scritte una do¬ 
po l'altra. Prima, con una REM abbiamo numerato le colonne, per 
disegnare piu' facilmente. La casetta viene disegnata usando gli 
asterischi. 

Abbiamo incorporato nel programma una routine che legge le 21 
stringhe, 7 per volta, analizza i caratteri delle stringhe e 
sostituisce 1 agli asterischi e 0 agli spazi. Poi calcola il 
valore di ogni colonna, aggiunge 128 e costruisce la stringa con 
la funzione CHR$ di ogni codice. 

Puoi estrarre questa routine e adattarla a disegni di altre 
dimensioni. Ricordati di usare un numero di righe multiplo di 7. 
Il programma stampa 10 volte la casetta e poi lista se stesso. 
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10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


REM C0D8-2 

DIMT*<?>,C$C3::- REM STRINGHE PER DISEGNO 
DIMT < 6 > : REM PER CRLCOLO 
REM DISEGNO ORSETTO IN 21 LINEE DRTR 
REM 12345678901234567 
ORTO" 


DRTR' 

DHTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 

DRTR" 


* 
* 

* * 

* * * 

* * *** 

* ** * 

* * * 

* ** 

k * 

*************** 


*** 
* * 
*** 


*** 
* * 
*** 


40 

45 

50 

55 

60 

65 

70 

“7Cj 
80 
85 
100 
105 
1 10 
115 
120 
125 
130 


I CODICI 
FLINT I 


DELLO ORSETTO' 


*** 

* * 

* * 

*************** 

PRI NT " rJSTO CRLCOLRNDO 
REM CRLCOLO COLONNE DI 
FORI<= 1T03 : Ct CK > = " " = FOR J= 1T07 
REROT*<J> : PR.IHTT t < J > > NEXTJ 
F0RL=1T017 1=0 

FORJ=1T07 : T (. I > =RSCCMIDTCTf < J > , L, 1 > > 

IFT <I>=42THENTCI> = 1•ELSET <I>=0 
1=1+1 NEXTJ 

T=0 ; FOR T=0TO6 : T=T +T J>*2 TJ = NEXTJ = T=T+128 

Ct < K > =Ct C. K +CHRT C T > : NEXTL 
NEXTK 

REM STRMF'R ORSETTO 
0PEN4,4 PRINT#4,CHR* <8> 

FORJ=1T03 FORK=1TO10 

F'R I NT#4, C* < J > ; : NEXTK = F'R INT#4 

NEXTJ 

F'RINT#4,CHR*<15> 

CMD4 LIST' FRINT#4 = CL0SE4 


COMMENTO A C0D8-2 

.3: dimensiona T$(7) per contenere le 7 stringhe di una stri^ 
scia, e C$(3) per contenere le 3 stringhe da stampare per for-^ 
mare il disegno. 

.4: dimensiona un vettore T(6) per contenere i 7 numeri 
corrispondenti a una colonna di punti. 

.8/30: disegno della casetta in linee DATA. 

.36: stampa un messaggio per avvisare che esegue il calcolo dei 
codici. 
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.40/85: ciclo per calcolare i codici della casetta. 

.45: inizia il ciclo per K da 1 a 3 per calcolare le 3 strin¬ 
ghe che costruiscono il disegno, pulisce la stringa e inizia un 
ciclo per J da 1 a 7 per leggere 7 linee DATA. 

.50: legge la stringa, la stampa sul video, disegnando cosi' 
la casetta con gli asterischi, e chiude il ciclo di J. 

.55: inizia il ciclo per analizzare i 17 caratteri di ogni 
stringa, e pone 1=0, indice per il vettore T. 

.60/70: preleva da ognuna delle 7 stringhe i 7 caratteri che 
occupano la stessa posizione verticale e trasforma gli asteria 
schi in 1 e gli spazi in 0 prima di porli nel vettore T(I). Alla 
fine del ciclo il vettore T(I) contiene una colonna di punti in 
cifre 1 e 0. 

.75: calcola il codice corrispondente moltiplicando le cifre 
per i relativi pesi, poi aggiunge 128. 

.80: aggiunge alla stringa C$(K) il nuovo carattere grafico 
calcolato e chiude il ciclo di L. Alla fine di questo ciclo la 
stringa C$(K) contiene tutti i 17 codici della striscia rela-' 
tiva, trasformati in carattere ASCII. 

.85: chiude il ciclo di K. Alla fine sono pronte le 3 strin-> 
ghe C$(K). 

.100/120: stampa 10 casette ripetendo 10 volte ogni disegno e 
poi andando a capo. 

.125: disattiva il modo grafico e torna al modo carattere norma-: 
le. 

.130: lista se stesso e chiude. 

CHR$(10) e CHR$(13) INVIO LINE FEED E RETURN 

Questi due codici hanno lo stesso comportamento, ognuno di essi 
stampa un LINE FEED e un RETURN e provoca la stampa di tutto 
quello che e' contenuto nel buffer. Se termini una "lista" con 
uno di questi codici, e non aggiungi il ";" finale, la mancanza 
di punteggiatura provoca un ulteriore RETURN. 

Nel programma C0D10/13 che segue, ti mostriamo come l'effetto dei 
due codici sia, il medesimo e come influisce il valore di "lfn" 
sulla spaziatura tra le linee. 


1 REM CODI0/13 
5 OPEN129,4 

10 0*="FROVO1 LFN> 1 28" =B*=" PROVO 
15 PRINT#129,fl*CHR*<10>B* 

20 C$="PRGV02 LFN>128" D»="PROVO 
25 PRINT#129,C$CHR*<13>D* 

30 CL0SE129 
35 OPEN10,4 

40 Et= " PR0V03 LFN028" =F*="PROVO 
45 PRIHT#10,E*CHR$<10>F$ 

50 G*="PR0V84 LFNC128"=H$="PROVO 
55 PRINT#10,G$CHR$<13/H* 

60 CLOSE10 
65 STOP 


DI CHR*<10>" 
DI CHR*<13>" 

DI CHR*<10>" 
DI CHR*<13>" 
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RISULTATI PROGRAMMA CODI 0/13 

PROVO1 LFM>128 
PROVO 01 CHR$<:10> 

PR0V02 LFNM28 
PROVO DI CHR$<13> 

PR0V03 LFHC128 
PROVO DI CHRT10> 

PR0V04 LFNC128 
PROVO DI CHR*<13> 


COMMENTO A CODI 0/1 3 

.5: apre con lfn=129 (>127) e questo provoca una doppia spazia¬ 
tura a fine linea se manca la punteggiatura finale. 

.10/15: prepara le due stringhe A$ e B$ e le stampa separandole 
con CHR$(10); esse vengono stampate una su ogni riga, ma alla fi- 
ne si ha un doppio spazio. 

.20/25: come sopra, ma separando le due stringhe con CHR$(13); 
si ottiene lo stesso effetto di prima. 

.30: chiude il file con lfn=129. 

.35: apre il file con lfn=10 (<127) e questo provoca una spazia- 
tura semplice in assenza di punteggiatura finale. 

.40/60: stampa con gli stessi codici dì controllo e ottiene la 
spaziatura semplice anche in assenza di punteggiatura finale. 

Se la punteggiatura finale invece di essere un e' una si 

ha l'aggiunta di 10 spazi, e questo può' provocare il passaggio a 
nuova linea, anche se non sono presenti o il codice 10 o il codi¬ 
ce 13. 

CHR$(14) MODO CARATTERE ALLARGATO 

Predispone la stampa in modo testo del carattere allargato, cioè' 
del carattere formato da 12 punti per riga e 7 punti per colon¬ 
na. La predisposizione rimane fino a quando si invia il codice 
15, per tornare al carattere normale, o il codice 8 per passare 
in modo grafico. 

Segue il programma CODI 4-1, che stampa due linee in carattere 
allargato, poi torna al modo normale, lista se stesso e chiude 
correttamente la comunicazione. 


1 REM COO14-1 

2 OPEN10,4 

3 1.41010 

4 F'R I HTCHR$< 14> "COMMODORE" 

5 PRIUTCHR*<:14>" MPS-803 " 

6 PRINTCHR*(15> 

7 LIST 

8 F'R IHT# 10 : CLOSE10 
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Il programma CODI 4-2, invece, mostra come sì possono ottenere 
sulle stesse linee di stampa sia caratteri normali che caratteri 
allargati, usando alternativamente i codici 14 e 15. 


1 REM CODI4—2 

2 OPEN 10.. 4 

3 PRI NT# 10, CHR$<14>"COMMODORE " : 

4 PF:INT#10, CHRJtt 15> "COMMODORE " 

5 PRINT#iO,-CHR$< 14> “ MPS-S03 

6 PRIHT#10,CHR*C. 15>" MPS-803 " 

7 F0RK=65T068 

3 PRINT#10, CHR*< 14!>CHR*OOCHR$05:>CHR$00 ; 

9 NEXTK 

10 PRINT#10,CHR* <15> =CLOSE10 


In questo caso stampiamo con PRINT#10 e non trasferendo la stam¬ 
pa dal video alla stampante con CMD10. Nota alle linee 7/9, come 
otteniamo in ciclo la stampa alternata di un carattere allargato 
e uno normale; inoltre scriviamo le variabili striga una vicino 
all'altra senza punteggiatura, ma dobbiamo porre un finale 
per evitare che vada a capo. 

RISULTATI PROGRAMMA CODI 4-2 


iZ: O M r-10 DORÈ COMMODORE 
MPS-SQ3 MPS-803 
1=1 RE: BC CD D 

CHR$(15) MODO CARATTERE NORMALE 

Predispone la stampa nel modo normale, che e' attivo all'accen¬ 
sione. Devi usare questo codice per disattivare sia il modo a 
carattere allargato, che il modo grafico. 

CHR$(16) SPOSTAMENTO POSIZIONE STAMPA A UNA COLONNA 

Questo codice predispone l'inizio della stampa a una colonna, tra 
00 e 79. Il numero della colonna, espresso come stringa di 2 
caratteri, deve seguire immediatamente CHR$(16). Ricorda che le 
cifre numeriche hanno codice ASCII che varia da 48 a 57; per 
indicare la colonna 18 puoi scrivere "18" oppure 

CHR$(49)CHR$(56). 

Il codice 16 può' essere usato sia in modo testo che in modo 
grafico. Riportiamo un esempio nel programma CODI 6-1. 

012345678901234367890123456789012345678901 23456789 

0 x i x 2 x 

01234567890123456789012345678901234567890123456789 

X 0 XI X 2 


1 REM CODI6-1 
5 OPEN10,4 
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10 CMD10 

15 DRTR0,65,67,102,61,31,61,102,67,65,0 
20 DRTR48,48,49,53,51,48 
25 PORI=1T011=REfìOfì 
30 fi*=fi*+CHR*<fi+128> 

35 HEXTI 

40 fìnsi IB1 00 

50 FORI=0TO2:RERDX,V 

55 PRINTCHR* < 15 CHR* < 16 > CHR* < X > CHR* V >; li CHR* < 8>fi*; 
60 NEXTI.PRINTCHR*<15> 

65 GQSIJB100 = RESTORE20 = FOR I=0TO2 = RERDX, V 

70 PRINTCHR*<8 >CHR*<16 >CHR*<X >CHR*C V>; fi* i CHR*<15 > JI; 

75 NEXTI 

80 PRINTCHR*(15> : LIST 
85 PR1NT#18 = CLOSE10=STOP 

100 FORK=0TO4:FORI=0T09 = PRINTCHR*< 48+1> ; 

105 NEXTI =NEXTK PRINT = RETURN 


COMMENTO A CODI 6-. 1 

.5/10: apre il file logico 10 per la stampante, trasferisce 
l'uscita video alla stampante e pulisce la stringa A$. 

.15: linea DATA che contiene i codici dell'omino con le braccia 
alzate, precedentemente preparato; esso occupa 11 colonne di pun¬ 
ti. 

.20: linea DATA che contiene 3 coppie dì cifre, in codice ASCI-i 
I, per definire le tre colonne: 00, 15, 30. 

.25/35: preparazione in A$ del disegno dell'omino, aggiungendo 
128 a ogni codice e trasformandolo in stringa. 

.40: esecuzione del sottoprogramma in 100 per stampare una linea 
di numerazione delle posizioni dì stampa. 

.50/60: stampa in ciclo, dopo aver letto le cifre di ogni colon¬ 
na dalla linea DATA 20, aver definito la posizione di stampa, del 
numero I e dell'omino. Nota nei risultati che le colonne selezio¬ 
nate sono 00, 15 e 30, che i numeri sono stampati preceduti e 

seguiti da uno spazio, e che gli omini occupano quasi due posi-> 
zioni carattere. In questo caso il codice 16 viene usato trovane 
dosi in modo carattere per effetto del codice 15. Concluso il 
ciclo, va a capo e ripristina il modo carattere con il codice 15. 

.65/75: esegue nuovamente il sottoprogramma per numerare le 
posizioni di stampa, poi passa con il codice 8 in modo grafico e 
usa il codice 16 per definire la posizione della colonna di ini-* 
zio stampa. Nel ciclo viene stampato prima l'omino e poi il nume¬ 
ro I, dopo essere tornati in modo carattere con il codice 15. No¬ 
ta nei risultati che: gli omini iniziano esattamente alle colon¬ 
ne 00, 15 e 30 (la numerazione va da 0 a 79), mentre i numeri 
iniziano esattamente 8 punti dopo l'omino, cioè' risultano sfal^ 
sati rispetto alla sovrastante colonna di numerazione. 

.80/85: ripristino del modo carattere, lista del programma e 
chiusura del file. 

.100/105: sottoprogramma di numerazione linea di stampa da 0 a 9 
per 5 volte. 
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CHR$(17) PASSAGGIO AL SET MINUSCOLO/MAIUSCOLO 
Questo codice fa passare al set minuscolo/maiuscolo, con vali¬ 
dità' locale, cioè' solo per l'istruzione di PRINT in corso (fi-’ 
no al primo RETURN), indipendentemente dal set selezionato con 
l'istruzione OPEN, che torna attivo al termine della PRINT. 

CHR${ 18) e CHR$(146) MODI RVS-ON E RVS-OFF 

Il codice 18 predispone la stampa in campo inverso: RVS-ON, men- 
tre il codice 146 predispone la stampa normale: RVS-OFF. Il pri¬ 
mo ha validità' locale, cioè' resta valido fino al primo carat¬ 
tere RETURN. Per questa ragione, se non si desidera alternare 
sulla stessa linea i due modi di stampa, non e' necessario usare 
il codice 146. 

Il programma COD18/146-1, che segue, illustra quanto detto. 


10 CMD10 A$="" 

CARATTERE NORMALE 

WSlSUMWIAMBI OMSIiCMMCAMB IO 

1 REM CODI8/146-1 
5 A$="CARATTERE NORMALE" 

10 B*="CARATTERE IN CAMPO INVERSO" 
15 C*="CAMBIO" 

20 0PEN4,4 ^ CMD4 
25 FRINTA* 

30 PRINTCHRT (. 18 > BTCHR4 C 146 > 

35 FORK=1T02 

40 PR I NTCHR* < 18 > CTCHRT < 1 46 > C* 

45 NEXTK : PRINT 
50 LIST PRINT44 
55 CL0SE4 STOP 


Il modo RVS-ON può' essere usato solo per la stampa in modo 
testo, carattere normale o allargato. 

Questi due codici possono essere usati con lo stesso effetto per 
la stampa sul video. 

CHR$(26) RIPETIZIONE CARATTERE GRAFICO 

Questo codice di controllo deve essere usato dopo essere entrati 
in modo grafico con il codice 8. Esso deve essere seguito da un 
numero N, che specifica quante volte deve essere ripetuta la 
colonna di punti che segue; tale numero può' variare da 0 a 255 e 
deve essere passato con la funzione CHR$(N). Se N=0 il carattere 
viene ripetuto 256 volte. Se vuoi ripetere per un numero maggior 
re di volte devi usare la sequenza CHR$(26)CHR$(N)...; piu' vol¬ 
te. Dopo CHR$(N) deve comparire il codice che rappresenta la 
colonna di punti da ripetere, passato con la funzione CHR$. 

Il programma COD26-1 esemplifica l'uso del codice 26 per aliar- 
gare il nostro omino, già' usato in qualche esempio, agendo su 
ogni colonna di punti che lo compone. 
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1 

5 

10 

15 

2ti 

25 

20 

35 

40 

45 

50 

55 

60 

65 

70 

75 

So 

35 

90 


REM C0D26-1 
OPEN lo.. 4 
CM010 

ORTO©,65,67,102,61,31,61,102-67,65,@ 
FORK=1T05 
FORI=1TO11 

PERDA = R*=CHR*<R+128> 

FRI NTCHR* C 8 > CHR* 126 >CHR* < 2 > R*, 

NEXTI 

RESTORE=NEXTK 
PRIHT:PRIHT 
F0RK=1T05 
FORI=1TO11 

RERDR^R*=CHR*<fl+128> 

PRINTCHR*<8 > CHR*<26 > CHR*C 3> A*; 

NEXT1 

RESTORE:NEXTK 
PRIHT : FRINTCHR*<15> 

PRIHT*» 10 CLOSE10 


RISULTATI C0D26^1 


2*7 3C 2*7 



COMMENTO A C0D26--1 

.5/10: apre la stampante con lfn=10 e trasferisce l’uscita video 
al file logico 10. 

.15: linea DATA che contiene la codifica dell'omino, senza 
l'aggiunta di 128 ad ogni codice. 

.20/45: ripete ciclicamente 5 volte la stampa dell'omino. Legge 
un codice per volta, aggiunge 128, trasforma in stringa in A$, 
stampa 2 volte ogni colonna di punti con la sequenza 
CHR$(8)CHR$(26)CHR$(2)A$. Il codice 8 poteva essere usato una so-, 
la volta fuori dal ciclo. RESTORE rende di nuovo attiva la linea 
DATA. 

.50/75: esegue di nuovo la stampa allargata dell'omino ripe-, 
tendo 3 volte ogni colonna di punti. 

.85/90: ripristina il modo carattere e chiude correttamente. 

Il codice 26 e’ molto utile per stampare istogrammi orizzontali. 
Nel programma C0D26->2 abbiamo realizzato un esempio. 


1 REM C0D26-2 
3 SR=7 

5 RESTORE: OPEN10,4,SR 
10 CMD10 = G*=CHR*C252 > 

15 DRTR18, 20,22, 38, 50, 48, 55, 49, 70.39.45.65 
20 PRINTCHR*C14>"ANDAMENTO VENDITE" 

23 PRIHT "ANNI 1973.'1384" 

25 PRIHT 


120 



; CHRÌ < S CHR$ <26CHR$ < B > G* 


30 FORI=1TO12 
35 REHDB 
40 0=1972+1 
45 FRINTCHR*<15>C" 

50 HEXTI 

51 FRINT : FRINT 
53 IFSH=7THENSh= 0 : PRI NT# 10 = CLOSE10 : Gnms 
55 PR I NT# 1 0 , CHR$ < 15 > : CLOSE 10 : STOP 


RISULTATI C0D26->2 


-=■.ri>d-am©i- - !to i ts- 

-=-.nr-i i 1 gT'S.- ‘ 1 SS34- 



RNDRMENTO VENDITE 
RNN I 1 ST-S,- 1 1 3S4 



COMMENTO A C0D26--2 

.3= pone SA=7, per attivare il set minuscolo/maiuscolo. 

.5/10: esegue il RESTORE e apre la stampante. Trasferisce 
l'uscita video alla stampante e definisce il carattere grafico 
G$, che corrisponde a una colonna di punti con spenti 1 due pun-» 
ti piu' in alto; cosi' le barrette dell'istogramma non si tocca-: 
no. 

.15: linea DATA con 12 numeri che rappresentano l'andamento del-» 
le vendite in 12 anni. 

.20/25: stampa l'intestazione della tabella. 

•30/51: stampa le 12 linee della tabella. Per ogni linea stampa 
in modo carattere l'anno e in modo grafico la barretta ripetendo 
il carattere G$ tante volte quanto e' il valore B. Nota che va a 
capo in modo grafico, e quindi i numeri degli anni risultano un 
po' ravvicinati verticalmente. 
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.53: se SA=7 pone SA=0 e ritorna alla linea 5 dopo aver chiuso 
il file. Cosi' stampa una seconda volta la tabella, ma con 
l'intestazione nell'altro set di caratteri. 

.55: se SA=0 ritorna in modo carattere e chiude correttamente. 


CHR$(27) SPOSTAMENTO POSIZIONE GRAFICA 

Consente di spostare la posizione di inizio della stampa in uno 
dei 480 punti di una linea, da 0 a 479. Esso può' essere usato 
sia in modo testo che in modo grafico. Non può' pero' essere usa-» 
to da solo, ad esso deve seguire il codice 16, seguito a sua vol^ 
ta dalla posizione del punto espressa in due byte, HI e LO, pas- 1 
sati con la funzione CHR$. Per esempio se vuoi stampare a par¬ 
tire dal punto 323 , devi eseguire il seguente calcolo: 
X=INT(323/256) 

Y=323*X*256 

e usare nell'istruzione PRINT la sequenza: 
CHR$(27)CHR$(16)CHR$(X)CHR$(Y)... 


Nel programma COD27-1 stampiamo un gruppo di omini sovrapposti 
iniziando la prima volta nel punto 33, la seconda nel punto 22, 
la terza nel punto 11 e la quarta nel punto 0. I due byte HI e LO 
che danno la posizioni di inizio devono essere sempre passati, 
anche se il byte HI e' nullo. 


1 REM C0027--1 
5 OPEN10■4,7-CMD10 

IO DhT fi@, 65, 67, 102.. 61,31,61,102,67,65,0 

15 < I > ..FOR J= 1T011 : REfiOfi = 128 

20 fl#=ft*+CHR*<(=l> : NEXTJ 
25 FORK=0TO4 

30 PRINTCHR$<8>CHR$<27>CHR$< 16>CHR*<0> 
35 PRINTCHR* <11* <3+K >.'HT, 

40 NEXTK ; PRINT 
45 FORK=0TG6 

50 PRINTCHR4 c: 8>CHR$ <27>CHR*< 16>CHR*< 0> ; 
55 PRINTCHR*<11* < 2+K> > fi*; 

60 NEXTK■PRINT 
65 FORK=0TO8 

70 PRINTCHR*<:85CHR*<27 '> CHR*16>CHR*<0) ; 
75 PRINTCHR*< 11*< l+K>>Fl*.; 

30 NEXTK ; PRINT 
85 FORK=0TD10 
30 PRINTCHR*<8>fi*.; 

95 NEXTK=PRINT 

100 PRINT : PRINTCHR*A 15 > 

105 FRINT#10:CLOSE10 


RISULTATI COD27->1 
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COMMENTO A COD27+1 

.5: apre il file della stampante con lfn=10 e trasferisce 
l'uscita video ad esso. 

.10: linea DATA che definisce l'omino. 

.15/20: costruzione in A$ dell'omino. 


.25/40: stampa 
44, 55, 66, 77. 

ciclica 

di 

5 

omini 

a 

partire 

dalle 

colonne: 

33, 

.45/60: stampa 
33, 44, 55, 66, 

ciclica 
77, 88. 

di 

7 

omini 

a 

partire 

dalle 

colonne : 

22, 

.65/80: stampa 
22, 33, 44, 55, 

ciclica 
66, 77, 

di 

88, 

9 omini 
99. 

a 

partire 

dalle 

colonne: 

11 , 

.85/95: stampa 

ciclica 

di 

11 

omini 

a 

partire 

dalla 

colonna 0. 



.100/105: ritorno alla stampa in modo carattere e chiusura 
corretta. 

Nella stampa delle prime 3 linee bastava posizionarsi al primo 
punto, dopo essere passati in grafica, fuori ciclo e poi prose- 
guire la stampa in ciclo senza ulteriori posizionamenti. 

Nel programma C0D27'”2 stampiamo 7 tacche nelle posizioni punto 0, 
50, 100, 150, 200, 250 e 300. Abbiamo stampato una linea di nume¬ 
ri per rendere riconoscibili le posizioni delle tacche. 


I REM C0D27-2 
3 OPEN10,4 

5 CODIO 

7 FORK=OT04:F ORI=0TO9:PR XNTCHR*<48+1>; 
9 NEXTI : NEXTK : PRINT 

II FQRI=0TO6 
13 fl=50#I 

15 B=INT<HV256> 

17 C=Fl-B*256 

19 FRINTCHR*<S>CHR*<27 > CHR* <16 >; 

21 PR I NTCHR* < B >CHR* <C >CHR* < 255> 

23 NEXTI PR1NT#10,CHR* <15> =CLQ8E10 


RISULTATI C0D27->2 

01234567890123456789012345678901234567890123456789 

I '1 I I I I I 


Nota come viene calcolata la posizione punto alle linee 13/17. 
Come ultimi esempi dell'uso dei codici 27 e 16 riportiamo i 
programmi GRAFIC01 e GRAFIC02. 
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I REM GRRFIC01 
3 0PEH4..4 CMD4 

5 OT=CHRTC 14> : NT=CHR*< 15 > 

7 P*=CHR*<16> >G*=CHRTC27> 

9 C=23•fl=16 : 0=4 

II RT="-":FGRI=0TOC+R ^ RT—RT+"-"=NEXT 
13 S$=” 

15 PRINTOT" GRRFICO SIN" 

17 PRINTN* 

19 F'RINTLEFTT CST.• 0-1 > + ,, X" ; 

21 PRINTSPCCC-R-O-l>"-1"; 

23 F'RINTSPCCR-1 > •'O** 

25 PRINTSPCCR-1>"1“ 

27 PRINTRT 

29 FORI=0TQ3G0STEP19 

31 1$=RIGHTTCST+STRTCI>,0 > 

33 , t' 0=C*S+R*6#SINC I *ir/1 SO > 

35 VH = IN T C VO/256 >=VL=VO-VH*256 
37 PRINTITGTPTCHRT C VH > CHRT C VL >"*" 

39 NEXTI :PRINT44,NT = CL0SE4 = STOP 


GRRF I CO :=: I N 
X -1 O 1 


0 
IO 
20 
30 
40 
50 
60 
70 
8@ 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
840 
250 
260 
270 
230 
290 
300 
310 
320 
330 
340 
350 
360 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

« 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 
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COMMENTO A GRAFICOI 

.3: apre la stampante e trasferisce ad essa l'uscita video. 

.5/7: definisce come stringhe i caratteri di controllo 14, 15, 
16 e 27. 

.9: inizializza alcune costanti. 

.11/13: prepara le stringhe A$ e S$. 

.15: stampa l'intestazione in caratteri allargati. 

.17/25: stampa X, -»1 , 0, 1 usando la funzione SPC per posizio¬ 
narsi . 

.27: stampa le lineette. 

.29/39: ciclo di stampa della funzione SIN tra 0 e 360, calco¬ 
lando le coordinate dei punti e stampandoli con il carattere 
asterisco in modo testo. Il posizionamento avviene con 
CHR$(27)CHR$(16) seguiti dalla posizione punto calcolata alle 
linee 33/35. 

Questo grafico e' ottenuto lavorando in modo testo. 

Il programma GRAFIC02, invece, lavora in modo grafico, stampando 
un piccolo rombo definito in F$ con 3 colonne di punti. Come puoi 
vedere dai risultati il grafico risulta molto piu' compatto. 


1 REM GRAFIC02 
3 0PEN4.I 4 = CMD4 

5 Q$=CHRT< 14)'NT=CHRT<15)=GR*=CHR*<8) 

7 PT=CHRT<16)=G*=CHRT<27>=NOT-CHRT(15) 

9 C=23 = A= 16 0=4 =FT=CHRT < 136> +CHR* < 148 ) +CHRT (. 136 ) 
il AT="-"=FORI=0TOC+A=A*=A*+"-"= NEXT 
13 S$=" 

1.5 PRINTDt" GRAFICO SIN" 

17 PRINTUÌ 

19 PRINTLEFT* < S* , O-1)+"X"; 

21 PR I NT SPC < C-fl-O-1 > " -1 '' 

23 PR INTSF'C < A—1 > "0" i 
25 PRINTSPC< A— 1 )"1" 

27 PRINTA* 

29 FORI=0TO36SSTEP10 

31 I $=R IGHT $ < ST+STRT I > , CO 

33 V0=C*6+fl#6*S IN < I*tr,' 180 ) 

35 VH=INT <VO/236)=VL=V0-VH#256 

37 PRINTNOTITGRTGTPTCHRT(.VH )CHR*<VL)F* 

39 NEXTI=PRINT#4,NT = CL0SE4 = STOP 


125 



GRRFICO 


I H 


0 


1 


CHR$(1^5) PASSAGGIO SET MAIUSCOLO/GRAFICO 

Questo codice fa passare al set maiuscolo/grafico in modo tempo-* 
raneo, cioè' con validità' limitata, fino al primo carattere 
RETURN. Rimane preponderante la definizione del set di caratteri 
operata con il valore di "sa" al momento della OPEN. 

5. GESTIONE DEL BUFFER DI STAMPA 

Il buffer della MPS-803 può' contenere 90 caratteri; si ha la 
stampa automatica quando il buffer e' pieno. La stampa può' aver 
luogo producendo lo svuotamento totale o parziale del buffer. Nel 
buffer vengono memorizzati tutti i caratteri che il calcolatore 
invia, quelli stampabili, i caratteri separatori, le funzioni di 
stampa, i caratteri di controllo. 

Quando usi un programma che manda dati alla stampante, non sem-> 
pre vedrai uscire dati in corrispondenza all'esecuzione di istru* 
zioni PRINT; se non operi bene puoi chiudere il file di stampa 
con CLOSE senza aver svuotato completamente il buffer (questo non 
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succede se prima della CLOSE usi un'istruzione PRINT senza lista 
dati ). 

Riassumiamo le condizioni nelle quali avviene la stampa: 

.1) Il buffer e' pieno, cioè' contiene 90 caratteri, ma i carata 
teri di testo stampabili sono meno di 80, o tra caratteri di 
testo e caratteri grafici sono presenti meno di 480 punti. Il 
buffer viene svuotato completamente producendo una linea di stam-> 
pa senza andare a capo (infatti non e' stato incontrato un carata 
tere di codice 10 o 13 che manda a capo). 

.2) Il buffer contiene meno di 90 caratteri, ma riceve un carat-> 
tere di "vai a capo": si ha la stampa di tutti i caratteri con 
svuotamento completo del buffer e si va a capo. 

•3) Il buffer non e' pieno, ma contiene tra caratteri di testo e 
grafici piu' di 480 punti stampabili; si ha la stampa di una 
linea con vai a capo, e il buffer viene svuotato dei caratteri 
stampati. 

Il programma ST-iAUTOM esemplifica quanto detto. 


1 REM ST-AUTOM 

2 M0T="STAMPA 80 CARATTERI, CHR*<13> FINALE" 

3 M1T="STAMPA 90 CARATTERI, CHR*<13> FINALE" 

4 M2T="STAMPA 90 CARATTERI, CON FINALE" 

5 M3T="STAMPA 8 VOLTE CHRT<10>; E POI 70" 

6 M3T=M3T+" CARATTERI, CON CHRT<13>1 FINALE" 

7 LFT=CHRTC10 >:CRT=CHRT<13> 

8 A*="0123456789 V :BT="" 

9 A1T="ABCOEFGHIJKLMNOPQRSTUVMXYZ"=B1T="" 

10 FORK=1T08•BT—BT+AT'NEXTK 

11 FORK=1T04 = B1T=B1T+A1* = NEXTK 

12 M4T="STAMPA 12 VOLTE CHR*<13>J POI 26 " 

13 M5T=LEFTT<:M4T,26> 

14 M4T=M4T+"CARATTERI CON CHR*<13> FINALE" 

15 M5T=M5T+"P0I LE 10 CIFRE CON ; FINALE" 

101 0PEN4,4 

103 FRINT#4,NO4 

105 PRINT#4,BT■GOSUB2O0 

107 PRINT#4,M1T 

109 PRI NT#4, BT :-f\$ OOSUB200 

111 PRINT#4,M2T 

113 PRINT#4, BT; A*.; = GOSUB20O 

115 PRIHT#4,M3T 

117 PR INT#4, LFT ; LFT; LFTLFT, LFTLFT; LFT 
119 PRINT#4,LFT,LEFTTC6T,70 >; CRT ; 

121 F'RINT#4,M4T 

123 PR INT#4, CRT ; CRT ; CRT ; CRTCRTCRT ; CRT ; 

125 PR I NT#4, CRT ; CRT ; CRT ; CRT ; CRTA1T = GOSUB200 
t PRINT#4,M3T 

129 PR I NT#4, LFTLFT1 LFT- ; LFT, LFTLFT1 LFT ; 

131 PR I HT#4, LFT ; LEFTTC BIT-, 70 > ; CRT ; 

133 PRINT#4, M5T- 

135 PRINT#4,"LE 10 CIFRE RESTANO NEL BUFFER" 
137 PRINT#4,CRT; CRT; CRT; CRT; CRT,CRT ; CRT; 

139 PRINT#4,CRT; CRT; CRT,CRT; CRT,AT, :GOSUB20© 

141 CL0SE4 : STOP 

200 FORI = 1TO1000 :NEXTI : RETURN 
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Non riportiamo i risultati del programma, che potrai ottenere tu 
eseguendolo. Esso prepara diverse stringhe di diversa lunghezza e 
le stampa; dopo ogni stampa viene chiamata una routine che prò-» 
voca un ciclo di attesa e che ti permette di vedere cosa e* sta-- 
to stampato fino a quel momento. Ricorda che se la lista di stam¬ 
pa termina senza punteggiatura il sistema aggiunge un CHR$(13) e 
quindi si ha la stampa con a capo. Se la lista di stampa termina 
con non viene aggiunto alcun carattere, mentre se essa ter¬ 
mina con "si ha l'aggiunta di 10 spazi. 

Nel programma ST-AUTOM, dato che l'ultima lista di stampa ter¬ 
mina con (linea 139) e alla linea 141 si ha la CLOSE del 
file, gli ultimi caratteri restano nel buffer e non sono stam¬ 
pati. Prova alla fine del programma ad eseguire in immediato: 

0PEN4 , 4 :PRINT#4 :CL0SE4 
e li vedrai uscire. 


5.5 COME SI COMPONE UNO STAMPATO 

Nella preparazione degli stampati si presentano due problemi: gli 
allineamenti orizzontali e le spaziature verticali. Per quanto 
riguarda il primo problema abbiamo già' visto in alcuni esempi 
che si può' agire sulla posizione di stampa con: 

.le funzioni TAB e SPC, 

.la punteggiatura "," e 

•i codici di controllo 16 e 27 seguiti da opportuni parametri, 
.le funzioni L.EN, LEFT$, MID$ e RIGHT$, che consentono di prepa¬ 
rare dati stringa tutti della stessa lunghezza. 

In generale si allineano i numeri a destra o al punto decimale, e 
le parole a sinistra. 

Per quanto riguarda il problema delle spaziature verticali, dato 
che la nostra stampante non contiene un contarighe automatico 
(con relativi codici di controllo per usufruirne), dobbiamo crea¬ 
re noi una routine che conti le righe di avanzamento della carta 
e ci consenta di intervenire per andare a nuovo foglio o per 
posizionarci a una determinata riga. 

E' necessario conoscere il numero di righe del modulo che si usa 
e stabilire di quante righe deve essere il margine non stam¬ 
pato. 

Il sottoprogramma CONTARIGHE ci consente di stampare su un foglio 
lungo 66 righe, con un margine di 6 righe. Se scriviamo GOSUB70- 
00 otteniamo di contare una riga di stampa, andando a nuovo 
foglio se ne sono già' state scritte 60. Se scriviamo G0SUB7040 
otteniamo di andare a nuovo foglio comunque. 


7000 REM CONTRRIGHE 
7005 IFCRO0THEN7020 
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7010 HR=66=REM LUNGHEZZA FOGLIO 

7015 RM=6 : REM RIGHE DI MARGINE 

7020 IFCR=NR-RMTHEN7030 REM CAMBIO FOGLIO 

7025 CR=CR+1 RETURN■REM +1 IN CONTA RIGHE 

7030 FORR=l TORM < PRI NT#4 . NEXTR ■■ REM CAMBIA FOGL10 

7035 CR=1 ; RETURN■REM RICOMINCIA FOGLIO 

7040 REM ENTRATA PER CAMBIARE FOGLIO 

7045 FORR=CR+1TOMR+NR : PR I NT#4 : NEXTR GOTO7035 


Quando al chiama la prima volta il sottoprogramma con GOSUB7000 
deve essere CR=0, e allora viene inizializzato NR=66 e RM=6 (puoi 
cambiare queste costanti secondo le tue esigenze). Quando, inve¬ 
ce CROO, la routine va a nuovo foglio se necessario e incre-s 
menta il contatore di riga. L'entrata 7040 fa andare a nuovo 
foglio indipendentemente dal numero di righe già' stampate. 

Seguono alcuni esempi relativi agli allineamenti orizzontali; es¬ 
si stampano i risultati e poi listano se stessi (puoi evitare la 
lista cancellando LIST). 

Il programma ES5.1 esemplifica l'uso della funzione TAB, dopo 
aver trasferito la stampa dal video alla stampante con CMD. 


0I23456789012345678901234567890123456789 
POS0 POSI© , POS30 

NUOVA RIGA 


I REM ES5.1 

3 0PEN4 .• 4 > CMD4 
5 A*="0123456789".Bf="" 

7 FORK=lT04:B*=B$+A$:NEXTK 
9 PRIHTBT 

II PRINTTRB<0>"POSO";TAB<6>"POSI©"; 
13 PR I MI TRE: < 15 > " POS30 " 

15 PRINTTRB<80>;"NUOVA RIOR" 

17 PEINT : LIST 
19 PRINT#4 :CL0SE4; STOP 


Il programma ES5.2 esemplifica l'uso della funzione SPC, dopo 
aver trasferito la stampa dal video alla stampante con CMD. 


0123456789012345678901234567890123456789 
DIECI CAR. DIECI CAR. 

DIECI CAR. DIECI CAR. 


1 REM ES5.2 

3 0PEN4,4 ^ CMD4 

5 fi*="w123456789“ : B*="" 

7 F0RK= 1T04 84 -CT+hì HEXTK 
9 PRINTBf 
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11 C4=" DIECI COR. " 

13 PRI HTC4 ■ SPC C 1 w :■ ; C4 
15 F'RIHTCÌThEC 10>C# 

17 PRI NT ; LIST 
19 PRINT#4 : CL0SE4 = STOP 


Puoi modificare ES5.1 e ES5.2 per stampare con PRINT#, invece che 
con CMD; ottieni gli stessi risultati. 


Il programma ES5.3 esemplifica l'uso della punteggiatura finale 
nella lista di stampa. Esso stampa con CMD. 


O123456789012345678901234567890123456789 
me OEF 

PRIMO POPOLO SECONDO POPOLO 

HBCDEF 

PRIMO F'OROLOSECOMDO POPOLO 


I REM ES5.3 

3 QPEN4,4 : CMD4 
5 04="O123456789“=Bi=“" 

7 FORK=1T04=B4=B4+A4•NEXTK 
9 PRINTBi 

II PRINT"OBC”,"OEF" 

13 FRINT"PRIMO POPOLO","SECONDO POPOLO" 
15 PRI NT "RBC" “OEF " 

17 PRI NT "PRIMO PORuLfl" > "'SECONDO POF'OLO" 
19 PRINT:LIST 
21 PRINT#4 :CL0SE4: STOP 


Puoi modificare ES5.3. stampando con PRINT#, invece che con CMD e 
ottenendo gli stessi risultati. 


Il programma ES5.4 mostra come incolonnare i numeri riducendoli 
tutti della stessa lunghezza, dopo averli trasformati in strin¬ 
ga, con l'aggiunta di spazi a sinistra, usando la funzione 
RIGHT$. 


0123456789S12345678901234567890123456789 
1234 13567 45 890 

5432 9376 3456 12345 

TOBELLO NUMERI IN COLONNA 

0123456789012345678901234567390123456789 
1234 13567 45 890 

5432 9876 3456 12345 


1 REM ES5.4 
5 DIMC<7>,C*<7>>SP*«“ 

IO 0PEH4,4 :CMD4 
15 A4-"O123456789":B4="" 

20 F0RK=1T04 : 84=84+04 :NEXTK 
25 PRINTE4 

30 DOTO 1234,13567,45,890 
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35 DATA5432.-9376, 3456, 12345 
4tì FORK=0TO7 : RERDC c. K) 

45 Ct CK>-STRI-<C<K>>.NEXTK 

5@ FORJ=0TO1 FORK=0TO3=PRINTC<K+J*4);" 

55 NEXTK : PR I NT : NEXTJ 

60 T$="TABELLA NUMERI IN COLONNA" 

65 PRINT :PRINTTT = PRINT 
70 PRINTER 

75 FORJ=0TO1 FORI:=0T03 

80 PR!INTRIGHT4-(SP4+C4 (. K+J#4> .. 10); 

85 NEXTK = PRINT.NEXTJ 

90 PRINT#4^ CMD4 LIST PRINT#4 = CLOSE4: STOP 


Il programma ES5.5 mostra come incolonnare i numeri ricorrendo, 
dopo la trasformazione in stringa, alle funzioni SPC e LEN. 


0123456789012345678991234567899123456789 
1234 8976 3456 13567 

45 899 5432 9876 

TABELLA NUMERI IN COLONNA 

91234567890123456789012345678901£3456789 
1£34 8976 3456 13567 

45 890 5432 9876 


1 REM ES5.5 
5 01MC<7 > , Ct <7 >^SP*=" 

10 0PEN44 : CMD4 
15 ft#=“0123456789">B$="" 

20 FORK= 1T04 : BT=BÌ+flf •• NEXTK 
25 PBIHTB* 

30 DATA 1234,8976 .• 3456.. 13567 .• 45.. 890,5432.. 9876 
35 FORK--0TO7 « RERDC < K > • Ct < K >=STR4 < C < K > > = NEXTK 
40 FORJ-0TO1 • FORK-0TO3 • PR 1 NTC < K+J*4> , " ; 

45 NEXTK‘PRINT•NEXTJ 

50 T$ = "TABELLA NUMERI IN COLONNA" 

55 PRINT.PRINTT* ; PRINT=PRINTB* 

60 FORJ=0TO1=FORK=0TO3 

65 PR I NT SPC < 10—LEN < Ct < K+J*4 > > ) C*< K+J*4 > ; 

70 NEXTK PRI NT = NEXTJ 

75 PRINT#4 = CMD4 * LIST : PRINT44 > CL.0SE4 .STOP 


Il programma ES5.6 mostra come allineare parole ricorrendo alle 
funzioni SPC e LEN. 


BELLO BENISSIMO ALLEGRO PIACEVOLE 
RILASSANTE SOLEGGIATO GRADEVOLE UTILE 
DEFINITIVO ARIOSO STUPENDO MAGNIFICO 


BELLO 

RILASSANTE 

DEFINITIVO 


BENISSIMO 
SOLEGGIHTU 
ARIOSO 


HLLEGRO 

GRADEVOLE 

STUPENDO 


PIACEVOLE 

UTILE 

MAGNIFICO 
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1 REM ES5.6 
5 DI Mi.:*'- 1 1 > 

18 0PEN4,4 :CMD4 

15 DAT RIBELLO, BEH I SS IMO, ALLEGRO 
20 DATAR I AGEVOLE ■ RI LASSANTE, SOLEGGIATO 
25 DATHGRADEVOLE,UT ILE,DEFIMITIVO 
30 DHTAARIOSO,STUPENDO,MACHIFICO 
35 FORI —OTÙ I 1 -.READC*<IO : NEXTK 
40 FORJ=0TO2■F0RK=0T03 PRINTC$<K+J*4>;" 
45 NEXTK : PRINT : NEXTJ 
50 N=0=FORK=0TO11 

55 IFLENCCSOO >>NTHENN=LEN(C*<K> > 

60 NEXTK : PRINT : PRINT 

65 N=N+3 FOR.J=0TO2 FORK=0TO3 

70 PRIHTCS <K+J#4>;SPC < N-LEN < C* < K+J*4 >>); 

75 NEXTK ; PRINT ; NEXTJ 

SO PR I NT#4 ^ CMD4 > LIST < PR I NT #4 = CLOSE4 . STOP 


5.6 COPIA DEL VIDEO TESTO SU CARTA 

In generale con 11 termine "copia del video su carta" (hardcopy) 
si intende uno stampato che corrisponda al contenuto del video. 
Tale stampato può', nel nostro caso: 

.Contenere gli stessi caratteri che compaiono sul vìdeo, grai 
fici o di testo, ma non essere identico al video. Infatti sul 
video i caratteri sono rappresentati in una matrice 8x8, mentre 
sulla carta sono rappresentati in una matrice 6x7. 

•Contenere una immagine identica ottenuta riproducendo esatta¬ 
mente i punti del video (con dimensioni diverse naturalmente). 

Noi in questo paragrafo ci occupiamo della copia del video su 
carta, quando il video e' in modo testo; nel prossimo paragrafo 
trattiamo invece l'argomento del video grafico. 

In modo testo la mappa del video occupa 1000 byte; l'indirizzo 
del primo byte si può' ottenere moltiplicando per 256 il conte¬ 
nuto del byte 1342. Al momento dell'accensione la mappa video 
inizia al byte 3072 (da 3072 a 4071 ) e la mappa degli attributi 
dei caratteri (colore, luminosità', flash) va da 2048 a 3047. 
Nella mappa video sono contenuti i D/CODE (vedi Paragrafo 4.8) 
dei caratteri, che sono diversi per i caratteri in campo diretto 
e in campo inverso. 

Abbiamo preparato il sottoprogramma HARD1, che legge con la 
funzione PEEK i codici D/CODE dei caratteri presenti sul video, 
li trasforma in codici ASCII, se i D/CODE sono maggiori di 128 
(campo inverso) predispone il carattere di controllo per atti-> 
vare sulla stampante il campo inverso, e li stampa, riproducendo 
i caratteri del video con i caratteri della stampante. HARD1 può' 
quindi servire per copiare su carta un video in modo testo, 
rispettando il campo diretto e il campo inverso. 

Nel programma C0PIAVIDE01 abbiamo usato HARD1 per ricopiare il 
video due volte, prima con il set maiuscolo/grafico e poi con il 
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set minuscolo/maiuscolo. Prima di far girare il programma, lo 
abbiamo listato con LIST sul video. Dato che il programma non e' 
molto lungo, esso entra tutto in un quadro video. Come puoi vede^ 
re dal risultato ogni linea e' di 40 caratteri; avresti ottenuto 
un risultato diverso trasferendo la lista alla stampante con CMD. 


1 REM COPIAVIDECI 

2 REM COPIA SET MAIUSCOLO/ORAFICO 

3 H1 *=CHR* < 145 > ■■ GOSUB i 0080 

4 H1T=CHRT<17 >^ GOSUB18888 : STOP 

10088 REM HARD1 

10001 0PEN4, 4 : PRI NT#4 
10082 H1=256*PEEK<1342 >-48 
10003 FORH8=0TO24 : H0T=H1T : H1=H1+48 
18084 F0RH2=H 1 TOH 1 +39 : H3=F'EEK< H2 > 

10805 IFH3>128THEHH3=H3-128 = H4=1=H8$=H8T 
+C HRT < 1 Q y 

10006 IF < H3>0 >* < H3C32>THENH3=H3+64 = GOTO1 
0010 

10007 IF < H3>31>#< H3C64>THEN10818 

10008 IF <H3163>* <H3C96 >THENH3=H3+i28 = GOT 

0100 10 

10089 IF < H3>95 >♦<H3< 128>THENH3=H3+64 : GOT 
010010 

10018 H0T=H0T+CHRT<H3 > 

18011 IFH4=1THENH0*=HQ*+CHR*<146>:H4=0 
10012 NEXTH2 : PRINT«4,HOT■NEXTHO 
10813 PRINT#4 = CL0SE4•RETURN 

RUN 


COMMENTO A C0PIAVIDE01 

.3: pone H1$=CHR$(145) per attivare il set maiuscolo/grafico e 
chiama il sottoprogramma HARD1. 

.4: pone H1$=CHR$(17) per attivare il set minuscolo/maiuscolo e 
chiama il sottoprogramma HARD1; poi si ferma. 

COMMENTO A HARD1 
.10001: apre la stampante. 

.10002: prepara in HI l'indirizzo di inizio della mappa video -> 
40. 

.10003: inizia un ciclo per HO da 0 a 24 per leggere le 25 linee 
del video. Pone H0$=H1$ e incrementa HI di 40, per puntare a lnl-> 
zio riga; alla fine della lettura di ogni riga torna ad eseguire 
queste due ultime operazioni. 

.10004: inizia il ciclo per leggere i 40 caratteri di una riga. 
Legge il D/CODE di un carattere con la funzione PEEK. 

.10005: se il D/CODE supera 128, aggiunge alla stringa H0$ il 
codice 18 per ottenere RVS-0N sulla stampante e pone H4=1. 
.10006/10009: trasforma il D/CODE in codice ASCII. 

.10010: aggiunge alla stringa H0$ il nuovo carattere. 

.10011: se H4=1 aggiunge alla stringa H0$ il codice 146 per tor-. 
nare a RVS-jOFF e pone H4=0. 
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.10012: torna alla lettura di un nuovo carattere fino alla 
conclusione del ciclo di carattere nella riga. Poi stampa la 
stringa H0$ sulla stampante e passa alla prossima riga video fi-3 
no alla conclusione del ciclo di riga. 

.10013: chiude la stampante e ritorna al programma principale. 


Il programma C0PIAVIDE02 stampa sul video 3 stringhe in campo 
diretto e 3 in campo inverso, nel set maiuscolo/grafico, poi 
chiama HARD1 per ricopiarle sulla carta. Dopo cambia il set di 
caratteri, stampa le stesse stringhe e chiama HARD1 per eseguire 
la copia del video. 


1 REM COPIHVIDE02 

2 PRINT'TJ" ; : RRI NT "FI6CQEFGHIJKLMNOPCtRSTUVWX VZ " 

3 FRI NT" H-*-r- ri al I I I "V I I" 

4 PRINT"#0 — —I I .-. I I L_—I ,' V 

5 PRINT" SWBCDEFGHIJKLHNOPQRSTUVWXVZa" 

6 PR I NT " E) H - L -r- — —_ M 1-1 ■ I I I I H LJ “ I i" 

7 FRI NT" a»C“-l I .-.I U+ I 

10 HI*=CHR *< 145> ^ GOSIJB1 GODO 

11 HI$=CHR*<17> • GOSUB1 GOGÒ : STOP 
1000G REM HftRDl 

1G001 0PEN4,4 :PRINT#4 
1G002 H1=256*PEEK < 1342>-40 
100G3 FORH0=0TO24 : HOT=H1 ì H1=H1+4G 
100G4 F0RH2=H1TOH1+39=H3=PEEKCH2> 

10005 IFH3>12STHENH3=H3-123 H4=1■H0*=H0*+CHR*<18> 
100G6 IF CH3>0)* <H3C32> THENH3=H3+64=GOTO10010 

10007 IF CH3>31>* C H3C64 >THEN10010 

10008 IF <H3>63>*<H3<96>THENH3-H3+128-GOTO10010 

10009 IF ( H3>95>* <H3C128>THENH3=H3+64: GOTO10010 
10G1G HOT=H0T+CHR$<H3> 

10011 IFH4=1THENH0*=H0*+CHR*<146>:H4=0 

10012 NEXTH2 = PR I NT#4.. HOT : NEXTH0 

10013 PR I NT#4 •• CL0SE4 = RETURN 


RISULTATI C0PIAVIDE02 


RBCDEFGHIJKLMNOPQRSTUVWXVZ 

H -*-T —- m rn-llll II 

•O -I I . —. I U+l**——I I -XI ..-'X 

:i a ni a sta ; > tu a ■ aia m aw a=> tua ? bcw 


abcdef3hi i K1mnopTrstuvwxVz 

H -l.. T -ss* n «I I II IS 1 J "‘.Il 

QWERTVUI OPt-4 I flSDFGHJKL-ZXCVBNM 

WBwacjiijmaaaiiwiiatìswa^wswmaaiBi 
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Il programma C0PIAVIDE03 usa 11 sottoprogramma HARD2 per copiare 
il video. In HARD2 la copia del video viene fatta aprendo il 
video come file, leggendo con GET# i caratteri, riga per riga, e 
stampandoli. Dato che i caratteri sono letti in codice ASCII, il 
programma non rispetta il campo inverso, salvo che per i carat¬ 
teri contenuti tra virgolette. 


1 REM C0PIRVIDEO3 

2 Sfl=0 : GO SUB 100100 

3 Sfi=? : GOSUE: 10000 

4 STOP 

10000 REM HRR02 
10005 PRIMT"a M ; 

10007 0PEN3 .• 3 ^ IJPEN4,4.. SR 
10010 FORK=0TO24=R$="“ 
10015 FORJ=0TO39 
10020 GET#3 , E:T : fl*=fi*+B* 
10025 NEXTJ 
10030 PR1NT#4.fl$ 

10035 HEXTK■PRIHT 
10040 CL03E3 •' GL0SE4 
10045 RETURN 

RUM 


1 r eni coP is uideos 

2 SS.=01 ; guSUb 1 00100 

3 sa= 7 : gosub10000 

4 stop 

1000C' rem hsrd2 
10005 Print"3"; 

10007 oP en3 .■ 3 ; oP en4.4.. s a 
10010i P orK=0to24 ^ *.$= " " 
10015 forj=0to3y 
100120 get#3.- b-f : ^l=^ i + bl 
1010125 next i 
101030 P r i rit#4 .■ a* 

10i0i:35 nextK : P r i nt 
1010401 c 1 ose3 : c Iose4 
1O045 return 

run 


Prima di far girare il programma lo abbiamo listato sul video. 
Esso viene stampato nei due set di caratteri. 

Affrontiamo ora il problema di ottenere su carta una copia iden¬ 
tica del video. Il problema e' abbastanza complesso infatti noi 
disponiamo dei codici dei caratteri, in D/CODE se li leggiamo con 
la funzione PEEK. Dato che nel COMMODORE PLUS-^ la mappa dei 
caratteri in ROM descrive solo i caratteri in campo diretto, 
D/CODE da 0 a 127, per i due set, dobbiamo analizzare il codice, 
e, se maggiore di 128, andare a prendere la descrizione del codi= 
ce corrispondente al campo diretto e scambiare i bit 0 con bit 1 
e viceversa. Le due mappe di descrizioni dei due set di carat-i 
teri occupano ciascuna 1024 byt^ (128*8=1024) e si trovano in ROM 
da 53248 (D000H) a 54271 , e da 54272 (D400H) a 55296. Per poter 
ricostruire i caratteri per punti sulla stampante occorrono le 
descrizioni dei caratteri, che pero' non sono accessibili da 
BASIC in ROM. In conseguenza i programmi BASIC che vogliono acce^ 
dere alla descrizione dei caratteri, senza usare routine in 
linguaggio macchina, devono essere lanciati dopo: 

.aver abbassato il top della memoria del BASIC, 

.aver trasferito con l'istruzione MONITOR i 2K della ROM carat¬ 
teri in RAM. L'istruzione MONITOR può' accedere alla ROM senza 
problemi. 

Abbiamo preparato il sottoprogramma HARD3, che lavora cosi': 

•Preleva i D/CODE dal video con la funzione PEEK e li memorizza 
in una matrice X(M,I), dove M rappresenta il numero delle righe 
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video da ricopiare e I il numero dei caratteri per riga. 

• Usa una matrice D a due indici, che abbia un numero di righe 
multiplo di 7, infatti per i caratteri grafici della stampante si 
devono usare 7 punti incolonnati, e che sia sufficiente a conte-» 
nere le descrizioni dei caratteri di ogni riga video, ognuno for-t 
mato da 8 linee. In tale matrice, che ha 40 colonne, vengono 
memorizzate le descrizioni di ogni carattere, occupando 8 righe. 
Le ultime righe della matrice rimangono eventualmente vuote, da-» 
to che si adatta una struttura multipla di 8 in una multipla di 
7. 

.Preleva dalla matrice D i byte a gruppi di 7 (sulla stessa 
colonna), calcola i codici degli 8 caratteri grafici a cui essi 
danno luogo (un carattere per ogni colonna di bit) e lì memo-' 
rizza in Z(7), poi li trasforma in stringa e li stampa. La prima 
riga stampata corrisponde quasi a una riga del vìdeo, infatti ha 
lavorato su 7 linee di punti invece che su 8, ma alla fine 
l'immagine e' formata dallo stesso numero di punti del video. 
Noterai una certa differenza con i caratteri stampati di solito 
dalla stampante. 


Noi abbiamo richiamato il sottoprogramma HARD3 dal programma 
C0PIAVIDE04. Abbiamo limitato il numero di righe video da 
ricopiare per ridurre il tempo di esecuzione del programma. Ci 
siamo limitati a scrivere sul video i caratteri di D/CODE compre-» 
so tra 32 e 127, che sono 96 e quindi occupano circa 3 righe 
video. Abbiamo dimensionato in conseguenza le matrici X e D; 
X(2,39) per avere tre righe e 40 colonne, e D(27,39) per avere 28 
righe e 40 colonne, infatti per 3 righe di caratteri ci vogliono 
3x8=24 linee di punti e il multiplo di 7 piu' vicino a 24 e' 28. 


1 REM COPIAVIDE04 
3 D1MX < 2,39 "> > D < 27,39 > , Z < 7 > 

5© H2$=CHR* < 142>+CHR* <146> 

55 GOSUB106 : 0=0 ■ GOSIJB10000 
57 H2*=CHR*<142> +CHR* <18> 

59 COSI IB100 ; 0=0 : GOSUB 10000 
70 H2*=CHR*<14 >+CHR* < 146 > 

75 GOSUB100 0=1■GOSUB10000 
77 H2*=CHR*<14>+CHR*<1S> 

79 GOSUB 100 : 0= 1 ■ COSI IB 10000 
81 F'R INTCHR* <■ 146 > CHR* < 142 > » STOP 

100 frint‘T rina*; 

105 F0RK=32T0127 = PRINTCHR* C K > = NEXTK 
115 FRINT-RETURN 
10000 REM HRR03 
10005 0PEN4•4 

10010 HI =256*PEEK<1342>-40 
10015 FORH0=0T02■H1=H1+40 

10020 J=0 »FORH2=H1TOH 1+39 

10021 X < H0,J > =FEEK C H2> 

10060 J = J+1 :NEXTH2^NEXTH0 

10063 GOSUB20000 

10064 GGSUB20020 
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10065 PRINT#4=CL0SE4■RETURN 
2000O REM PRELEVO DESCRIZIONI 
200O5 0=14080+0*1024 

20007 FORM=0TO2 = FORI =0TO3y = V=X< t'1, I > 

20008 SW=0=IFV>127THENSW=1=V=V-128 

20009 F0RK=0T07 = DCN*8+K,I> =PEEK Cfi+V*3+K> 

20011 IFSW=1THENOCM*8+K,I> =218-1-DCM*8+K,I > 
20015 NEXTK^NEXTI=NEXTM=RETURN 

20020 PRINT#4,CHR*<8 >; 

20035 FORN=0TO27STEP7 

20038 FORI=0TO39 

20039 FORL=0TO7 = ZCL>=0•NEXTL 
20048 FQRM=0T06 : V=D <M+N,I > 

20043 FuRL=0Tu7 

20045 IFINT CV/2T<7-L >>=0THEN20060 
20050 ZCL>=Z < L > +2 tt'l : V=V-2 TC 7-L > 

20060 NEXTL•NEXTM 

20065 0i="“^ FORL=0TO7 : H*=fl*+uHR*CZ<L> + 128> 
20866 NEXTL 

20067 PR I NT#4 .• fi* ; = NEXTI PR I NT#4 
20080 HEXTN PRINT#4,CHR*C15> >RETURN 


RISULTATI C0PIAVIDE04 


! )*+,- . /OI23456789 : 

HI JKLMNOPQRSTUUWXVZUIt^—*1 
<-XO* !♦+% I rtl 


;<=>?PftBCDEFG 

——-i k ^L.\yr 



!"C > * • . - . /012345G789: ;< = >?Cabcdefq 
li i jk 1 unopqrsiuvwx yz [£ 1 tF-ABCDEF GHI JKL MN D 
PQRSTUUWXYZ-K: I 
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COMMENTO A C0PIAVIDE04 

Prima di caricare o scrivere il programma e' necessario eseguire 
in immediato le seguenti istruzioni: 

.1): POKE 55,255:POKE 56,54:CLR per abbassare il top della memo^ 
ria BASIC a 14079 (36FFH). / 

.2): MONITOR per attivare il MONITOR / 

T DOOO D7FF 3700 per trasferire i 2K delle descrizioni dei 
caratteri dalla ROM (53248) in RAM (14080). 

X per uscire dal MONITOR. 
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Segue il commento al programma. 

.3: dimensiona le 3 matrici: 

X(2,39) per contenere i D/CODE di 3 righe video, 

D(27,39) per contenere le descrizioni per punti delle 3 
righe di caratteri, ma con un numero di linee di punti multiplo 
di 7. 

Z(7), per contenere i codici dei caratteri grafici ottenuti 
da 7 byte incolonnati in D. 

.50/55: predispone il set maiuscolo/grafico in campo diretto sul 
video, chiama il sottoprogramraa in 100 per scrivere i caratteri 
sul video, pone D=0 per puntare al primo set e chiama HARD3 per 
eseguire la copia. 

.57/59: come sopra ma per il campo inverso. 

.70/75: come sopra, ma per il secondo set e il campo diretto. 

.77/79: come sopra, ma per il campo inverso. 

.81: ripristina il set iniziale e si ferma. 

Ottieni come risultati 96 caratteri del primo set, prima in cairn 
po diretto e poi in campo inverso, e poi 96 caratteri del secon-< 
do set, ancora nei due modi. 

COMMENTO A HARD3 

.10005: apre la stampante. 

.10010: prepara l'indirizzo della mappa video. 

.10015/10060: trasferisce il contenuto della mappa video nella 
matrice X, usando la funzione PEEK. 

.10063: chiama il sottoprogramma in 20000 per riempire la matri-> 
ce D con le descrizioni dei caratteri. 

.10064 chiama il sottoprogramma in 20020 per stampare la copia 
del video. 

.10065: chiude la stampante e ritorna al programma principale. 

.20000/20015: trasferisce le descrizioni dei caratteri nella 
matrice D; se il D/CODE supera 127 scambia tra loro i bit 0 con 
bit 1 e viceversa, per ottenere la rappresentazione in campo 
inverso. 

.20020: inizia la parte stampa passando in modo grafico. 

.20035: predispone l'analisi della matrice D in strisce di 7 
linee. 

.20038: predispone l'analisi dei 40 caratteri di una riga. 

.20039: azzera il vettore Z(7). 

.20040/20060: decodifica a gruppi i 7 byte della striscia, otte¬ 
nendo i codici di 8 caratteri grafici. 

.20065/20066: calcola la stringa corrispondente 

.20067: stampa 8 caratteri grafici contenuti in A$ e passa al 
prossimo gruppo di byte. Alla fine della striscia va a capo. 

.20080: chiude il ciclo di analisi delle strisce di D, e alla 
fine ripassa in modo testo ed esce. 

A nostro avviso l'interesse di questo programma sta solo nelle 
difficolta' di programmazione incontrate, cioè' nell'aver fatto 
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lavorare il BASIC a livello di bit. Infatti il programma risulta 
piuttosto lento. 

Nel prossimo paragrafo presentiamo un programma in linguaggio 
macchina che lavora sulla pagina grafica; si potrebbe prepararne 
uno analogo che lavora sul video in modo testo, riuscendo ad 
ottenere la copia molto piu' velocemente. 


5.7 COPIA DEL VIDEO GRAFICO SU CARTA 

La pagina grafica viene attivata passando in modo grafico con 
l'istruzione GRAPHIC. Essa inizia al byte 8192 ($2000) ed e' for¬ 
mata da 8000 byte, 8 per ogni posizione carattere del video in 
modo testo. I byte della pagina grafica sono utilizzati come 
segue: 

.i primi 8 descrivono il primo insieme di 8x8 punti situato 
nell'angolo in alto a sinistra, corrispondente alla posizione 
carattere di coordinate 0,0; 

• i successivi 8 byte descrivono l'insieme di 8x8 punti 
corrispondente alla posizione carattere di coordinate 1,0 (accani 
to e a destra della precedente), e cosi' via; 

.gli ultimi 8 byte, di indirizzo da 16184 a 16191, descrivono 
l'ultimo insieme di 8x8 punti corrispondente alla posizione 
carattere di coordinate 39,24. 

Nella Figura 5.1 riportiamo la corrispondenza tra i byte della 
pagina grafica e le posizioni sul video. 

Per risolvere il problema della copia su carta, abbiamo già' 
disponibile la descrizione per punti, ma dobbiamo trasformarla in 
caratteri grafici, cioè' in colonne di 7 punti. Abbiamo già' 
eseguito questo lavoro in BASIC nel paragrafo precedente con il 
sottoprogramma HARD3. In quel caso nella matrice D(27,39) abbia¬ 
mo messo noi i byte già' organizzati nella sequenza nella quale 
danno il disegno del quadro, come appare nella Figura 5.1. In 
questo caso, invece, la sequenza di byte per indirizzo crescente 
e' utilizzata in un modo piu' complicato e dobbiamo trovare un 
opportuno algoritmo che ci permetta di riferirci ad essi. Per 
questa ragione, dopo attento esame, abbiamo preparato un 
sottoprogramma in ASSEMBLER, che chiamiamo HARD4; esso viene 
richiamato dal programma BASIC VIDEOGRAF e si ottiene la copia su 
carta della pagina grafica. 

Vediamo ora quali algoritmi abbiamo usato per prelevare dalla 
pagina grafica i punti nella sequenza necessaria per la stampa. 
Dobbiamo costruire caratteri grafici per la stampante, formati da 
colonne di 7 punti, cioè' utilizzare i byte che danno il quadro 
video a strisce alte 7 punti. La prima volta, per la prima linea 

di stampa, da 8192 a 8198, da 8200 a 8206. da 8504 a 8510, e 

cosi' via. Dal momento che 200 diviso 7 da' 28 con resto di 4, 
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PUNTO 



Figura 5.1 Come i byte della pagina grafica danno il quadro video 


l'ultima striscia di caratteri grafici avra' solo H punti veri e 
gli ultimi 3, i piu' significativi a 0. 

Consideriamo un singolo punto sul video; le sue coordinate grafia 
che X e Y danno la posizione, con 0<=X<=319 e 0<=Y<=199. Noi 
dobbiamo trovare un algoritmo che metta in relazione X e Y con 
l'indirizzo del byte (da 8192 a 16191) a cui il punto appartiene 
e con la posizione del bit corrispondente nel byte (da 0, a 
destra, a 7, a sinistra). Chiamiamo IB l’indirizzo del byte e IP 
la posizione del bit nel byte, espressa con il suo peso; abbia^ 
mo: 

IB=8192+8*INT(X/8)+320*INT(Y/8)+(Y AND 7) 

IP=2"(7 * (X AND 7)) 

Con riferimento alla Figura 5.1, verifichiamo le due formule per 
Il bit di posizione 5 nel byte di indirizzo 8513, e per il bit di 
posizione ^ nel byte di Indirizzo 161811. 

.1) byte 8513, bit di posizione 5 

coordinata X=2, infatti si trova nella terza colonna da 
sinistra 


140 




coordinata Y=9, infatti si trova nella decima linea di pun¬ 
ti dall'alto 

IB=8192+8*INT(2/8)+320*INT(9/8)+(9 AND 7) 

=8192+0+320*1+1 

=8192+320+1 

=8513 

IP=2~(7-(2 AND 7)) 

= 2 ~( 7 - 2 ) 

=2*5 

.2) byte 1618*1, bit di posizione *1 

coordinata X=315, infatti si trova nella quintultima posi¬ 
zione dell'ultimo byte della riga 

coordinata Y=192, infatti si trova nella 193~esima linea di 
punti dall'alto 

IB=8192+8*INT(315/8)+320*INT(192/8)+(192 AND 7) 
=8192+8*38+320*211+0 
=8192+312+7680 

=16184 

IP=2~(7-(315 AND 7)) 

=2~(7=3) 

=2~4 


0 REM VIDEOGRRF 
10 GRRPHIC 1 GRAFHIC 0 

20 PORI-0TO244 RERDR P0KE5888+I,R>HEXT 
30 0PEM4,4■PRINT#4,CHR*<8 >i 
40 FORI=0TO321 PRIHT#4,CHR*<192 >i■ NEXT 
50 CMD4:SVS5888 

60 FORI=0TO32i=PRIHT#4,CPIRt<129>1«HEXT 
61. PRINT#4,CHR$<.14> 

70 CL.OSE4 

999 REM ORTI PER HRRD4 

1000 DRTR1 69 ,7,141,71,63,169,0,141 

1010 0RTR72,63,169,255,32,21©,255,169 
1020 DATA0,141,64,63,141,65,63,169 
1030 DRTR128,141,74,63,169,0,141,73 
104© DATH63,173,72,63,24,109,73,63 
105© DAT0141,68,63,32,121,23,238,73 
1060 DRTR63,173,73,63,205,71,63,208 
1070 DRTR232,173,74,63,32,210,255,238 
1080 DRTA64,63,173,64,63,208,3,238_ 
1090 DRTR65,63,201,64,208,201,173,65 
1100 DRTR63,201,1,208,194,169,255,32 
111© DRTR210,255,169,13,32,21 ©,255,173 
1120 DRTR72,63,24,105,7,141,72,63 
1130 DOTO201,196,208,5,169,4,141,71 
1140 DRTR63,173,68,63,201,199,208,146 
115© DRTR96,173,64,63,41,243,141,66 
1160 OHT063,173,64,63,41,7,141,67 
1170 D0T063,173,68,63,74,74,74,141 
1180 D0T069,63,173,68,63,41,7,141 
1190 DOTO70,63,169,32,133,4,169,0 
1200 DOTO133,3,172,69,63,240,16,165 
1210 DOT03,24,105,64,133,3,165,4 
1220 DRTR 105,1,133, 4-, 136,208,240 , 165 
1230 DOTfl.3,24, 109,66, 63, 133,3, 1 65 
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1240 DAT04, 109, 65, 63, 133,4, 173,70 
125Q DOT063,24,101,3,133,3,165,4 
1260 ORTO105,0,133,4,169,128,174,67 
127@ DRTR63,240,4,74,202,20tì,252,33 
1280 DhT R3,240,17,169,1,172,73,63 
1290 DATR240,4,10,136,208,252, 13,74 
1300 DATR63,141,74, 63, 96 


COMMENTO A VIDEOGRAF 

.10: sposta il programma in $^000 (vedi Paragrafo 2.8) per non 
sporcare con le variabili il sottoprogramma in linguaggio macchi¬ 
na, le memorie degli attributi per la pagina grafica e la pagina 
grafica stessa (che occupano rispettivamente ì byte da $1700 a 
$17F 1 I, da $1800 a 1BE7, da 1C00 a 1FE7 e da $2000 a $3F*10). 

.20: carica il programma in linguaggio macchina in memoria. 

.30: apre il canale con la stampante e la pone in modo grafia 
co. 

. JtO: disegna la striscia di contorno superiore. 

.50: dirotta l'output sulla stampante e esegue la routine in 
linguaggio macchina. 

.60: disegna la striscia di contorno inferiore e fa uscire la 
stampante dal modo grafico. 

.70: chiude il canale con la stampante. 

.1000/1300: dati relativi a HARD 1 ). 


Vediamo ora il programma ASSEMBLER HARD 1 ): 


MONITOR 





1739 

00 

40 

3F 

LD0 

$3F40 








173C 

20 

02 

FF 

JSR 

$FF02 


PC 

■Z'R HU . : sK 

t'R sf 



173F 

EE 

40 

3F 

INC 

$3F40 


0000 

00 00 00 00 F8 


1742 

00 

40 

3F 

LO0 

$3F 40 








1745 

00 

03 


BNE 

$1740 


1700 

H9 

07 

LD0 

#$07 


1747 

EE 

41 

3F 

INC 

$3F41 


1702 

8D 

47 3F 

STft 

$3F47 


1740 

C9 

40 


CMP 

#$40 


1705 

09 

00 

LO0 

#$00 


174C 

00 

f; 9 


BNE 

$1717 


1707 

8D 

48 3F 

ST0 

$3F48 


174E 

00 

41 

3F 

LO0 

$3F41 


1700 

09 

FF 

L00 

#$FF 


1751 

C9 

01 


CMP 

#$01 


170C 

20 

02 FF 

JSR 

$FF02 


1753 

00 

C2 


BNE 

$1717 


170 F 

09 

00 

L00 

#$00 


1755 

09 

FF 


LD0 

#$FF 


1711 

8D 

40 3F 

ST0 

$3F 40 


1757 

20 

02 

FF 

JSR 

$FF02 


1714 

SD 

41 3F 

STO 

$3F41 


1750 

09 

00 


LO0 

#$00 


1717 

09 

80 

LD0 

#$80 


175C 

20 

02 

FF 

JSR 

$FFD2 


1719 

80 

40 3F 

STO 

$3F4R 


175F 

00 

48 

3F 

LO0 

$3F48 


171C 

09 

00 

L0R 

#$00 


1762 

18 



CLC 



171E 

30 

49 3F 

STO 

$3F49 


1763 

69 

07 


0DC 

#$07 


1721 

00 

48 3F 

LO0 

$3F48 


1765 

80 

48 

3F 

STO 

$3F48 


1724 

18 


CLC 



1768 

C9 

C4 


CMP 

#$C4 


1725 

60 

49 3F 

RDC 

$3F 49 


1760 

00 

05 


BNE 

$1771 


1728 

8D 

44 3F 

STO 

$3F44 


176C 

09 

04 


LD0 

#$04 


172B 

20 

79 17 

JSR 

$1779 


176E 

80 

47 

3F 

STO 

$3F47 


172E 

EE 

49 3F 

INC 

$3F49 


1771 

OD 

44 

3F 

LD0 

$3F 44 


1731 

00 

49 3F 

LO0 

$3F49 


1774 

C9 

C7 


CMP 

#$C7 


1734 

CO 

47 3F 

CMP 

$3F47 


1776 

00 

92 


BNE 

$ 1700 


1737 

00 

E 8 

BNE 

$1721 


1778 

60 



RTS 
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1779 

8D 

40 3F 

LD8 

*3F40 


17B9 

18 


CLC 



177C 

29 

F8 

ONO 

#*F8 


17B8 

60 

42 3F 

8DC 

*3F42 


177E 

80 

42 3F 

STO 

*3F42 


17BD 

85 

03 

STO 

*03 


1791 

80 

40 3F 

LD8 

*3F40 


17BF 

85 

04 

LD8 

*04 


1794 

29 

07 

8ND 

#*07 


1701 

60 

41 3F 

8DC 

*3F41 


1786 

80 

43 3F 

STO 

*3F43 


1 7C4 

85 

04 

STO 

*04 


1789 

OD 

44 3F 

LD8 

*3F44 


17C6 

OD 

46 3F 

LD8 

*3F46 


178C 

48 


LSR 



17C9 

18 


CLC 



178D 

48 


LSR 



17C8 

65 

03 

80 C 

*03 


178E 

48 


LSR 



17CC 

85 

08 

STO 

*03 


178F 

80 

45 3F 

STO 

*3F45 


17CE 

85 

04 

LD8 

*04 


1792 

80 

44 3F 

LD8 

*3F44 


1700 

6,9 

00 

8DC 

#*00 


1795 

29 

07 

RHD 

#*07 


1702 

85 

04 

STO 

*04 


1797 

80 

46 3F 

STO 

*3F46 


1704 

89 

80 

LD8 

#*80 


179H 

89 

20 

LD8 

#*20 


1706 

8E 

43 3F 

LDX 

*3F43 


179C 

85 

04 

STO 

*04 


1709 

F0 

04 

BEQ 

*17DF 


179E 

89 

00 

LD8 

#*00 


17DB 

48 


LSR 



1788 
1782 
1785 

1787 

1789 

1788 
178C 
178E 

85 

8C 

F0 

85 

18 

69 

85 

85 

03 

45 3F 
10 

03 

STO 
LOV 
BEQ 
LD8 
CLC 
80 C 
STO 
L08 

*03 
*3F45 
* 17B7 
*03 


17DC 

17DD 

170F 

1 7E1 

17E3 

CO 

00 

21 

F0 

89 

FC 

08 

1 1 

01 

DEX 

BUE 

OND 

BEQ 

LD8 

* 17DB 
< *08 , 

* 17F 4 
#*0 1 


40 

03 

04 

#*4Q 

*03 

*04 


17E5 
17E8 

17E8 
17EB 

17EC 

OC 

F0 

00 

49 3F 
04 

LOV 

BEQ 

OSL 

DEV 

BUE 

*3F49 
* 17EE 


17B0 
1702 

69 

iCJ 

01 

04 

ODC 

STO 

#*01 

*04 


00 

FC 

* 17E8 


17B4 
17B5 
17B7 

88 

00 

85 

DEV 

BUE 

L08 


17EE 

00 

48 3F 

ORO 

*3F48 


F0 

03 

*1707 

*03 


17F1 

17F4 

80 

6.0 

48 3F 

STO 

RTS 

*3F 48 

Questa 

routine usa 

alcuni byte 

come 

memoria di 

lavoro 

; 



.$3F 1 tO,$3F41 : contatore per X (byte basso/alto). 

.$3FH2: INT(X/8)*8 (byte basso). 

•$3F^3: X AND 7. 

.$3FA4: Y. 

.$3F45: INT(Y/8). 

.$3F46: Y AND 7. 

•$3F47: numero di linee che compongono la atriacia corrente 
(normalmente 7; per l'ultima striscia 4). 

•$3F48: 7 per numero di strisce già' stampate. 

,$3F49: numero di linea nella striscia. 

•$3F4A: codice del carattere da stampare. 


Dal momento che questo aottoprogramma non e'molto semplice, 
riportiamo nelle Figure 5.2 e 5.3, rispettivamente il diagramma a 
blocchi di HARD 1 ) e quello della routine interna ad esso. 


Per facilitare la comprensione del programma, abbiamo numerato 
ogni blocco dei diagrammi (con un numero posto fuori a destra) e 
diamo la corrispondenza tra i blocchi e le linee del listato 
ASSEMBLER: 
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Figura 5.2 Diagramma a blocchi sottoprogramma HARD4 
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Per la 
BLOCCO 
BLOCCO 
BLOCCO 


Figura 5.2: 

1 : linee 1700-M707. 

2 : linee 170A-1714. 

3 : linee 1 71 7~1 71 E. 



Figura 5.3 Diagramma a blocchi sottoprogramma interno a HARD 1 ! 
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BLOCCO 

4 : 

linee 

1721-11728. 

BLOCCO 

5 : 

linea 

172B. 

BLOCCO 

6 : 

linea 

172E. 

BLOCCO 

7 : 

linee 

1731-1737. 

BLOCCO 

8 : 

linee 

1739-173C. 

BLOCCO 

9 : 

linee 

1 73F-1747. 

BLOCCO 

10 

: linee 

17 4a—1753 • 

BLOCCO 

11 

: linee 

1 755-175C. 

BLOCCO 

12 

: linee 

175F-1765. 

BLOCCO 

13 

: linee 

1 768-176A. 

BLOCCO 

14 

: linee 

176C--176E. 

BLOCCO 

15 

: linee 

1771-1776. 

BLOCCO 

16 

: linea 

1778. 


Per la 

Figura 5.3; 


BLOCCO 

17 

linee 

1779-1797. 

BLOCCO 

18 

linee 

179A-17A0. 

BLOCCO 

19 

linee 

17A2-17B5. 

BLOCCO 

20 

linee 

17B7-17C4. 

BLOCCO 

21 

linee 

17C6-17D2. 

BLOCCO 

22 

linee 

17D4-.17D6. 

BLOCCO 

23 

linee 

17D9~17DD. 

BLOCCO 

24 

linee 

17DF. 

BLOCCO 

25 

linee 

17E1 . 

BLOCCO 

26 

linee 

17E3-17E5. 

BLOCCO 

27 

linee 

17E8-17EC. 

BLOCCO 

28 

linee 

17EE-17F1. 

BLOCCO 

29 

linee 

17F4. 


Per poter usare con soddisfazione VIDEOGRAF, devi prima aver 
disegnato qualcosa sulla pagina grafica, ed essere tornato in mo¬ 
do testo. Noi abbiamo usato il programma ES2.16. Il tasto ESC 
seguito da un numero modifica il numero dei caratteri di una li¬ 


nea video. 


Con ES2.16 abbiamo preparato il disegno che vedi riprodotto da 
HARD4. Ovviamente puoi usare qualunque programma per produrre un 
disegno in pagina grafica. 


RISULTATO VIDEOGRAF 


QUADRO UIDEO PER PROUA HARDCOPV 
DEL VIDEO GRAFICO 
OTTENUTO CON ll_ PROGRAMMO 

fi C F£ X M P Ni R F-- 

e: c 20 

fi: . "Li jfi _ 

m=~- «lean 

ESC 30 

ESC -46 

ESC BE> 

esc se 
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CAPITOLO 6 


I FILE SU DISCO 


6.1 INTRODUZIONE 

Al COMMODORE PLUS-4 possono essere oollegate in serie diverse 
periferiche tra unita' a disco e stampanti. 

Le unita' disco sono di norma vendute con dn=8, cioè' gli switch 
interni sono posizionati su 8. Se il calcolatore e' collegato a 
piu' unita', la prima può' mantenere dn=8, la o le altre possono 
avere dn da 9 a 11 . Per modificare il "dn" , si può’ agire all ' in-? 
terno dell'unita', rendendo permanente il nuovo numero, oppure 
procedere all'assegnazione temporanea via software del nuovo 
numero, al momento dell'accensione. 

Noi ci occupiamo dell'unita' 1541 e i programmi esempio si 
riferiscono al collegamento di una sola unita'. 

L'unita' 1541 e' una periferica intelligente, cioè' essa lavora 
in modo indipendente dopo aver ricevuto i comandi dal calco¬ 
latore. Le sue parti componenti sono: 

. un microprocessore 6502, 

. 16K di memoria ROM, contenenti il DOS (Disk Operating System), 
. 2K di memoria RAM per i buffer e le memorie di lavoro, 

. un'interfaccia seriale IEEE488, 

. due porte di comunicazione, 

. le parti elettromeccaniche necessarie. 

Le due porte di comunicazione consentono di collegare in serie 
piu' unita'. 

Nella parte anteriore dell'unita' sono visibili: 

. lo sportellino e la fessura per l'introduzione del dischet¬ 
to, 

. un indicatore luminoso, a sinistra, a luce verde, che indica 
se l'unita' e' accesa, 

. un indicatore luminoso, piu' verso il centro, a luce rossa, 
che indica, quando acceso, se e' in corso fisicamente un'ope-* 
razione sul dischetto. Questo indicatore lampeggia quando si 
verifica un errore. 
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Il dischetto flessibile, floppy, e' contenuto in una busta 
protettiva di plastica con alcune aperture, visibili nella Figu¬ 
ra 6.1. 



Figura 6.1 II dischetto nella sua busta 


Il dischetto non deve mai essere maneggiato toccando le aper¬ 
ture. La testina di lettura e scrittura agisce attraverso la 
finestra oblunga centrale. La finestra laterale serve per proteg-- 
gere il disco da scrittura, basta chiuderla con una delle appo-» 
site etichette. Il floppy non deve essere estratto con acceso 
l'indicatore rosso. 

Le registrazioni sul floppy sono eseguite secondo tracce concen-i 
triche. Sul tipo di floppy usati per l'unita' 15*11 sono dispo-» 
nibili 40 tracce su una sola faccia; di queste ne vengono utiliz-» 
zate solo 35. Ogni traccia e' divisa in blocchi, chiamati setto¬ 
ri, in numero diverso per gruppi di tracce, come sotto ripor-s 
tato. 


FORMATO DEL FLOPPY 

Numero traccia Numero settori Numerazione settori 


da 

i 

a 

17 

21 

da 

0 

a 

20 

da 

18 

a 

24 

19 

da 

0 

a 

18 

da 

25 

a 

30 

18 

da 

0 

a 

17 

da 

31 

a 

35 

17 

da 

0 

a 

16 


Facendo i conti risultano disponibili in tutto: 

17*21 + 7*19 + 6*18 + 5*17 = 683 settori. 

Il settore e' il record fisico del floppy; esso contiene 256 
byte. Nel seguito indichiamo con byte 0 il primo e con byte 255 
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l'ultimo del settore. La traccia 18, di 19 settori, che si trova 
al centro del dischetto (vedi Figura 6.2), e' utilizzata in un 
modo particolare; essa contiene l'ìndice delle registrazioni 
effettuate sul floppy e la mappa dell'occupazione dei settori. 
Questo e' necessario dato che il floppy e' un supporto di 
registrazione ad accesso diretto, non rigorosamente sequenziale 
come il nastro, e si deve conoscere l'ubicazione delle diverse 
registrazioni. 



Figura 6.2 Schema non in scala del dischetto 


Il dischetto nuovo non può' essere utilizzato immediatamente; 
prima e' necessario eseguire su di esso un'operazione di prepa- 
razione all'uso, che si chiama "formattazione". Essa consiste 
nella registrazione sul dischetto degli indirizzi di traccia e 
settore, nell'assegnazione di un nome e di una identificazione di 
2 caratteri, nella creazione della "mappa" del dischetto e della 
"directory". 


Vediamo l'utilizzo della traccia 18 e dei suoi 19 settori, di 
indirizzo da 0 a 18. 


TRACCIA 18 n SETTORE 0 

. byte da 0 a 143, mappa di occupazione, chiamata BAM (Block 
Availability Map). 

Questi 144 byte sono utilizzati cosi': 

. byte 0 e 1, concatenamento al settore seguente, contengono 18 
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(12H) e 1 (01H), traccia 18 settore 1. 

. byte 2, contiene 65, codice ASCII della lettera A, che indi= 
ca il formato dell'unita'. 

. byte 3, contiene tutti bit 0 e non e' usato. 

. byte da 4 a 143, 140 byte che contengono la mappa di occupa-» 
zione, utilizzando 4 byte per ogni traccia (35*4=11(0). Ogni quar-i 
tina di byte e' utilizzata cosi': 

. primo byte, numero dei settori ancora disponibili nella 
traccia; 

. secondo byte, mappa dei primi 8 settori della traccia, 
utilizzando i bit a partire dal meno significativo; quello piu' a 
destra per il settore 0, quello piu' a sinistra per il settore 7; 

. terzo byte, mappa degli 8 settori seguenti, da 8 a 15; 

. quarto byte, mappa degli ultimi settori della traccia, a 
partire dal 16. Restano inutilizzati alcuni bit a seconda delle 
tracce. 

Se il bit e' 1, il settore corrispondente e' libero, se e' 0, es-< 
so e' occupato. 

. byte da 144 a 255, identificazione del dischetto, blocco di 
inizio della directory: 

. byte da 144 a 161, 18 byte, di cui 16 per il nome, se esso 
e' piu' corto viene completato con il codice ASCII 160, 
corrispondente al carattere SHIFT=spazio, gli ultimi 2 byte sem-» 
pre con codice 160; 

. byte 162 e 163, i due caratteri di identificazione (ID) del 
floppy; 

. byte 164, codice 160; 

. byte 165 e 166, caratteri 2A, versione del DOS e formato 
dischetto; 

. byte da 167 a 170, codice 160; 

. byte da 171 a 255, non utilizzati, con tutti i bit a 0. 


TRACCIA 18 = SETTORI DA 1 A 18 

Contengono l'indice del disco "directory"; in ogni settore e' 
registrato l'indice di 8 file. In conseguenza il numero massimo 
di file registrabili e' 144, 18*8=144. Ogni registrazione 

nell'indice viene chiamata "entrata" (entry), e occupa 30 byte. 
La struttura di ogni settore e' la seguente: 

. byte 0 e 1, concatenamento al settore seguente. Se il set-» 
tore e' l'ultimo della catena, il byte 0 contiene tutti bit 0 e 
il byte 1 contiene il puntatore all'ultimo byte utilizzato, quin-* 
di 255 se il settore e' completo. 

. byte da 2 a 31, entrata 1 : 

. primo byte, tipo del file: 

tutti bit 0 per DEL, file cancellato, 

128+1 per SEQ, file sequenziale, 

128+2 per PRG, file programma, 


150 



128+3 per USR, file utente, 

128+4 per REL, file relativo. 

. secondo e terzo byte, indirizzo di traccia e settore del 
primo blocco del file. 

. dal quarto al 19-esimo byte, 16 byte per il nome del file, 
completato con codice 160 se piu’ corto. 

. 20-esimo e 21-'esimo byte, usati per i file relativi, 
contengono gli indirizzi di traccia e settore del primo blocco 
"side sector" (indice interno del file relativo). 

. 22->esimo byte, usato solo per i file relativi, contiene la 
lunghezza del record, <=254. 

. dal 23=esimo al 26-esimo byte, 4 byte non usati. 

. 27^sirao e 28-esimo byte, traccia e settore del primo 6100 = 
co del file rimemorizzato, cioè' del file che e' stato memoriz-' 
zato usando il carattere 

. 29=esimo e 30-esimo byte, numero dei blocchi occupati dal 
file, nell'ordine LO^HI. 

. byte 32 e 33, 2 caratteri separatori, contenenti tutti bit 0. 
. byte da 34 a 63, entrata 2. 


. byte 224 e 225, 2 caratteri separatori. 

. byte da 226 a 255, entrata 8. 

Dei 683 settori disponibili, 19 sono usati per le informazioni 
sopra descritte; in conseguenza restano disponibili per i file 
664 settori (683^19=664). 

Dopo l'inserimento del dischetto nell'unita' 1541, al primo 
accesso avviene l'operazione di "inizializzazione", che consiste 
nel : 

. allineare la testina di lettura con la traccia, 

. leggere il settore 0 della traccia 18 in uno dei buffer di 256 
byte dell'unita'. Questa operazione e' essenziale, infatti per 
poter scrivere sul dischetto deve essere consultabile la BAM, 
altrimenti si rischia di scrivere sopra settori già' occupati. 
Inoltre la BAM deve essere riscritta sul dischetto, prima di 
toglierlo dall'unita', altrimenti il dischetto non e' piu' 
utilizzabile in modo corretto. 

Devi fare attenzione e non confondere la formattazione con 
1'inizializzazione; le differenze tra le due operazioni sono: 

. la formattazione agisce sul dischetto e lo modifica, 

. 1'inizializzazione preleva informazioni dal dischetto e le 
carica nella RAM dell'unita' 1541. 

La directory, invece, viene letta a pezzi quando serve, settore 
per settore, per trovare la localizzazione di un file e le infor-* 
mazioni necessarie alla sua gestione. Essa viene parzialmente 
riscritta per registrare le modifiche, quando serve. 


151 



Abbiamo detto che in un settore si possono registrare 256 byte; 
in realta' il settore e' formato anche da altri byte, ma questi 
sono utilizzati dal sistema, per 1'indirizzamento e per i 
controlli. Tu puoi usare solo i 256 byte disponibili per l'utern 
te. 


Le caratteristiche tecniche del floppy sono: 

.Capacita’ totale: 174848 byte (683*256) 

.Capacita' per file sequenziali 168656 byte (in ogni settore i 
primi 2 byte sono usati per il concatenamento, quindi 254*664) 
.Capacita' per file relativi 1671 32 (664*256 -> 664*2(com> 

catenamento) -> 254*6(side sector)), con al massimo 65535 record 
logici per file 
.Entrate nella directory: 144 
.Settori per traccia: da 17 a 21 
.Byte per blocco: 256 
.Tracce: 35 

.Totale blocchi: 683, di cui disponibili 664 per registrare 
file. 

Le operazioni di lettura e scrittura relative al floppy avven- 
gono sempre a livello di blocco fisico, cioè' di un intero setto-* 
re. 

6.2 IL DOS 

Il DOS (Disk Operating System) e' una versione del sistema operai 
tivo DOS residente nella ROM dell'unita' 1541; esso esegue i 
comandi che riceve dal calcolatore, funzionando in modo indipen-* 
dente. Il COMMODORE PLUS-'4 invia attraverso l'interfaccia seria¬ 
le sequenze di byte alla periferica 1541; il DOS riconosce se si 
tratta di comandi o di dati e gestisce le operazioni disco. 

Nel Paragrafo 4.1 abbiamo riepilogato le istruzioni BASIC per la 
gestione dei file; ora vediamo il significato dei parametri per 
la periferica 1541. 

. lfn, numero logico del file può' variare da 0 a 127. 

. dn, numero dell'apparecchiatura, vale 8 se si usa una sola 
unita' collegata. Può' variare da 8 a 11 per piu' unita' colle-> 
gate. 

. sa, secondo la terminologia COMMODORE viene in questo caso 
chiamato "canale" invece di "indirizzo secondario". Esso gioca un 
ruolo molto importante, infatti il suo valore permette al DOS di 
interpretare i dati trasmessi. I valori possibili per "sa" vanno 
da 0 a 15: 

. sa=15, canale comandi; 

. sa=0, canale usato per aprire un file in lettura; 

. sa=1, canale usato per aprire un file programma in 
scrittura; 
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. sa=2,...,14, canale per trasferimento dati. 

. nomef, nome del file può' essere lungo fino a 16 caratteri. 
Esso può' essere preceduto dal numero del drive, che e' 0 e può' 
essere omesso per unita' singole, deve essere 0 o 1 per unita' 
doppie. 

. tipo, tipo del file, può' essere: PRG, SEQ, USR, REL (abbre^ 
viato alla prima lettera). 

. modo, può' essere W per scrivere e R per leggere, nel caso dei 
file sequenziali. Si può' usare anche A (Append) con il signi¬ 
ficato di prolungare (aggiungere in coda dati) a un file sequen-i 
ziale. 

Attraverso il canale 15, il calcolatore invia all'unita' 1541, 
con le istruzioni OPEN e/o PRINT#, stringhe di comandi, che 
esaminiamo nel seguito. Il DOS provvede a interpretare i comandi 
e li manda in esecuzione; esso assegna al canale lo spazio di 
memoria RAM necessario per lavorare e i buffer necessari. La RAM 
dell'unita' 1541 comprende 8 buffer di 256 byte ciascuno; di es-> 
si 4 sono sempre impegnati per la BAM, le variabili di lavoro e 
il controllo delle operazioni. Restano a disposizione solo 4 buf- 
fer per i file; in conseguenza si possono gestire contempo¬ 
raneamente 3 o 4 file, a seconda del loro tipo. 

Prendiamo ora in esame un primo gruppo di stringhe-=comando per la 
gestione del dischetto; esse si possono inviare al DOS in BASIC, 
sia in modo immediato che da programma. Per inviare il comando si 
possono seguire due strade: 

.1) OPENlfn.8,15 

PRINT#lfn ,stringa-.comando 

.2) 0PENlfn,8,15.stringa^comando 

e in ambedue i casi devi terminare con CLOSElfn. Se non si ese-> 
gue la CLOSE, ad una successiva apertura si ha errore. Puoi deci-’ 
dere di aprire all'inizio del programma il canale 15, di inviare 
i comandi con PRINT#lfn e di chiudere il canale solo alla fine 
del programma. 

I comandi di utilità' generale disponibili, che si possono seri-» 
vere per esteso o abbreviandoli alla prima lettera, sono: 

.NEW, per formattare il dischetto, 

•INITIALIZE, per allineare la testina e caricare la BAM, 

.VALIDATE, per sistemare la BAM in base alle entrate valide 
registrate nella directory, 

.COPY, per copiare file, 

.RENAME, per cambiare nome a un file, 
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.SCRATCH, per cancellare un file. 

Il BASIC 3.5 del COMMODORE PLUS-^4 mette a disposizione alcuni 
comandi che producono lo stesso effetto di alcuni di questi, e 
non hanno bisogno di essere preceduti dalla OPEN del canale 15. 


NEW 

può' essere usato per: 

.preparare un disco nuovo (o già' usato) per l'uso. Vengono 
registrati gli indirizzi di traccia e settore, il nome e 
l'identificazione, viene preparata la BAM. 

.cancellare un disco già' usato, mantenendo invariata l'denti- 
ficazione, ma senza riscrivere gli indirizzi, e aggiornando la 
BAM. 

La stringa si scrive: "Ndr: nome,XX” 

.dr, può' essere omesso se 0. 

.nome, e' il nome da assegnare al dischetto, massimo 16 carat- 
teri. 

.XX, e' la "identificazione" del dischetto; deve essere di 2 
caratteri (scelti a piacere). Omettendo XX con un floppy già' 
usato, si ottiene di cancellare il precedente contenuto, senza 
riscrivere gli indirizzi. Non puoi omettere XX con un floppy nuo-> 
vo. 


Il comando BASIC equivalente e' HEADER. 

INITIALIZE 

deve essere usato per allineare la testina di lettura e scrit¬ 
tura all'inizio della traccia e per caricare la BAM in un buffer 
dell'unita' 1541. 

La stringa si scrive: "Idr" 

.dr, può' essere omesso se 0. 

Quando inserisci il floppy nell'unita' questa operazione deve 
avvenire automaticamente, comunque e' bene eseguirla quando si 
usa molto il dischetto. Prima di eseguirla devi chiudere i file 
eventualmente aperti. 

Non esiste un comando BASIC equivalente. 

VALIDATE 

serve per rimettere in ordine un dischetto nel quale la situa-- 
zione della BAM non corrisponde alle entrate della directory, ci 
sono file non correttamente chiusi (con un asterisco di fianco al 
tipo nella lista della directory). Devi eseguire questa opera-» 
zione quando la somma dei blocchi occupati e dei blocchi liberi 
non da' 664. 

La stringa si scrive: "Vdr" 

.dr, può' essere omesso se 0. 

Il comando rigenera la BAM in base alle entrate della directory e 


154 



cancella le entrate della directory non valide. 

Il comando BASIC equivalente e' COLLECT. 

COPY 

consente di ottenere copie di un file di qualunque tipo. Se il 
floppy e* unico (come per l'unita* 15-41) il nome vecchio e il no-> 
me nuovo devono essere diversi. Si possono anche fondere piu* fi¬ 
le sequenziali di dati in un unico file. Lavora su unita' sin-* 
gola o su unita' a due drive, non su due unita' diverse. 

La stringa si scrive: 

"Cdr:dnoraef=dr:snomef" per copia di un file 

"Cdr:dnomef=dr:snoraef1,snomef2,..." per fondere file sequen^ 
ziali di dati. 

.dnomef, e' il file destinazione. 

.snomef, e' il file sorgente. 

Il file sorgente deve essere stato correttamente chiuso. 

Il comando BASIC equivalente e' COPY. 

Inoltre per unita' a due floppy in BASIC e' disponibile anche il 
comando BACKUP (DUPLICATE del DOS). 

Per il momento non e' disponibile un'unita' a 2 drive da colle¬ 
gare direttamente al COMMODORE PLUS-»^. 

RENAME 

serve per cambiare nome a un file nella directory senza spostare 
il file. La stringa' si scrive: "Rdr:nnomef=vnomef" 

.nnomef, e' il nome nuovo. 

.vnomef, e' il nome vecchio. 

Il file su cui operi deve essere stato correttamente chiuso. 

Il comando BASIC equivalente e' RENAME. 

SCRATCH 

cancella uno o piu' file ponendo DEL (tutti bit 0) come tipo 
nell'entrata della directory e aggiorna la BAM. 

La stringa si scrive: 

"Sdr:nomef" per un solo file 

"Sdr :nomef 1,nomef2,.per piu* file.Ti consigliamo di cancel-* 
lare i file che non ti servono piu' prima di riscriverli e di non 
usare il carattere nella OPEN o nelle SAVE, DSAVE. Infatti 

quest'ultimo modo di procedere può', a volte, generare degli 
inconvenienti sul dischetto. 

Il comando BASIC equivalente e' SCRATCH. 

Per tutti i comandi visti il "dn" viene citato nella OPEN e sele¬ 
ziona l'unita', se ci sono piu* collegamenti. 

Oltre a quelli già' esaminati sono disponibili altri tre gruppi 
di comandi che servono per: 
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.gestire direttamente le operazioni di lettura e scrittura sul 
dischetto accedendo a un blocco fisico, individuato dal suo indi-* 
rizzo di traccia e settore. 

.gestire i file relativi. 

.aggiungere al DOS routine utente, che possono essere lette dal 
floppy e scritte sul floppy e mandarle in esecuzione. 

GESTIONE DIRETTA 

Esaminiamo ora i comandi per la gestione diretta delle operai 
zioni sul floppy. Per poter eseguire questi comandi deve essere 
aperto il canale 15 e deve essere aperto uno dei canali, da 2 a 
14, per il trasferimento dei dati. 

Nel seguito presupponiamo che siano state eseguite le due OPEN, 
prima della PRINT# che invia il comando, e che alla fine delle 
operazioni vengano eseguite le due corrispondenti CLOSE. 

Le OPEN devono essere eseguite nel seguente ordine: 

. OPENlfn,8,15 per aprire il canale comandi con un detergi 
minato "lfn". Noi, per abitudine usiamo il numero 15 per questo 
"lfn", cosi' non dobbiamo ricordare un altro numero: 0PEN15,8,15. 

. 0PENlfn,8,sa,"#" per aprire il canale per i dati. Lo "lfn" 
usato qui deve essere diverso da quello della OPEN precedente; 
esso deve variare tra 0 e 127; "sa" può' variare da 2 a 14. Noi 
di solito usiamo per "lfn" e "sa" valori uguali, compresi tra 2 e 
14, ma escludiamo il 4, dato che, per abitudine, lo usiamo per la 
stampante. Il carattere "#" deve essere presente e significa 
apertura per accesso diretto. I buffer dell'unita' 1541 sono 
numerati da 0 a 7 ; se vuoi puoi scrivere dopo il carattere un 
numero per scegliere un buffer particolare, con il rischio di 
trovarlo già' occupato. Se scrivi "#4", chiedi di usare il quin-» 
to buffer per i dati. Qualora desideri sapere quale dei buffer il 
sistema ha usato, puoi subito dopo la OPEN..."#", eseguire 
GET#lfn,A$; in A$ trovi il numero del buffer assegnato. Questa 
ultima OPEN non produce una registrazione nella directory; que-» 
sto fatto può' essere pericoloso, infatti, se si eseguono 1 
comandi VALIDATE o COLLECT, le registrazioni dirette spariscono, 
nel senso che vengono liberati i settori della BAM non registra-» 
ti nella directory. 

Al termine delle operazioni la CLOSE del canale dei dati deve 
essere eseguita prima della CLOSE del canale comandi. Il canale 
comandi può' essere aperto all'inizio del programma e chiuso al-» 
la fine. 

I comandi disponibili in questo gruppo sono: 

. BLOCK-ALLOCATE, per allocare un blocco, abbreviato in B-»A; 

. BLOCK-FREE, per liberare un blocco, abbreviato in B--F; 

. BLOCK-READ, per leggere un blocco nel buffer dei dati, abbre¬ 
viato in B-R; 
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. BLOCK-WRITE, per scrivere il contenuto del buffer dei dati sul 
disco; 

. BUFFER-POINTER, per posizionare il puntatore in una deter¬ 
minata posizione nel buffer dei dati; 

. USER1, simile a B-R, abbreviato in U1; 

. USER2, simile a B-W, abbreviato in U2. 

Nelle spiegazioni che seguono usiamo i parametri già' noti, e, in 
piu' , "t" per traccia e "s" per settore, "p" per posizione del 
puntatore nel buffer. 

Precisiamo come si svolgono le operazioni dirette sul floppy: 

.SCRITTURA: le istruzioni PRINT#lfn,lista-dati scrivono nel buf¬ 
fer dei dati nella RAM dell'unita' 1541, facendo avanzare il 
puntatore; per trasferire il blocco sul dischetto si usa l'appo¬ 
sito comando trasmesso sul canale 15, con PRINT#. 

.LETTURA: il blocco viene trasferito nel buffer dei dati nella 
RAM dell'unita' 1541 dall'apposito comando, trasmesso sul canale 
15, con PRINT#; le istruzioni INPUT#lfn.lista-dati e GET#lfn,li¬ 
sta-dati leggono i dati dal buffer, facendo avanzare il punta¬ 
tore . 

La posizione del puntatore nel buffer può' essere controllata, 
usando il relativo comando, trasmesso sul canale 15. 

BLOCK-ALLOCATE, si scrive: 

"B-A:"dr;t;s 

registra nella BAM l'occupazione del blocco di indirizzo t,s. E' 
importante allocare' un settore libero, altrimenti si cancella 
qualcosa. Per essere sicuri che un settore e’ libero si chiede di 
allocarlo e subito dopo si analizza la situazione di errore tra¬ 
mite il canale 15. L'errore 65: NO BLOCK, segnala che il settore 
e' già' occupato. In questo caso le due variabili ET e ES, for¬ 
nite dall'analisi dell'errore, danno l'indirizzo t,s del primo 
settore disponibile, che può' essere allocato. Se, invece, ET 
contiene 0, questo significa che il dischetto e' pieno. EN 
contiene 0 se l'allocazione del blocco non ha creato problemi. E' 
importante tener presente che il sistema non evita di allocare 
settori eventualmente liberi nella traccia 18 della directory; 
per questa ragione devi controllare con il tuo programma di non 
andare ad occuparli. Infatti un'eventuale estensione della 
directory per nuove entrate potrebbe poi danneggiare le tue 
registrazioni (vedi routine ALLOCA nel Paragrafo 6.8). 

Vedi NOTA al comando seguente. 

BLOCK-FREE, si scrive: 

"B-F:"dr;t;s 

libera il blocco di indirizzo t,s e aggiorna la BAM. 

NOTA: B-A e B-F lavorano anche se prima non e' stata eseguita 
una OPEN..."#", ma questo e' pericoloso, infatti la BAM viene 
riscritta sul floppy quando si chiude un canale per la trasmis- 
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sione dei dati; se esso non e' stato aperto si può' danneggiare 
il dischetto. 

BLOCK-READ, si scrive: 

"B-R: "sa; dr ; t ; S 

trasferisce il settore di indirizzo t,a nel buffer dei dati asse-* 
gnato al momento della OPEN..."#" con lo stesso valore di "sa". 
Nella posizione 0 del buffer (primo carattere) viene trovato il 
valore del puntatore (fine record) al momento della registra- 
zione del blocco. Tale indicazione e' importante perche' in fase 
di lettura dal buffer con le istruzioni INPUT# o GET# la parola 
di stato ST contiene 64 quando si raggiunge la posizione di fine 
record. 

BLOCK-WRITE, si scrive: 

"B-W: "sa;dr; t; s 

scrive il contenuto del buffer dei dati, assegnato al momento 
della OPEN..."#" con lo stesso valore di "sa", nel blocco indivi¬ 
duato dall'indirizzo t,s. Registra nella posizione 0 il valore 
raggiunto dal puntatore e predispone il puntatore sulla posi¬ 
zione 1. Se il blocco viene letto con B-R, il primo carattere 
disponibile e' quello di posizione 1, mentre, se la lettura vie¬ 
ne effettuata con U1, il primo carattere disponibile e' quello di 
posizione 0. 

BUFFER-POINTER, si scrive: 

"B-P:"sa;p 

consente di spostare il puntatore all'interno del buffer dei 
dati. La posizione del puntatore e' molto importante, infatti le 
istruzioni di I/O agiscono a partire dalla sua posizione. Nelle 
due coppie di istruzioni che scrivono o leggono un settore abbia¬ 
mo indicata dove si trova il puntatore dopo la loro esecuzione. 
Questo comando consente di controllare completamente la posi¬ 
zione del puntatore. 

Il sistema gestisce i file sequenziali usando i primi due carat¬ 
teri dì ogni blocco, di posizione 0 e 1, per concatenare tra lo¬ 
ro i settori; quando usi 1 file random puoi mantenere questa 
organizzazione preoccupandoti tu di riempire i primi due carat¬ 
teri e posizionando i dati a partire dalla posizione 2. In 
sostanza in un settore possono cosi' essere utilizzati solo 254 
byte. Lo spostamento del puntatore consente di raggiungere 
qualunque campo nel record di un file random. 

USER1 , si scrive: 

"U1:"sa;dr;t;s 

agisce come B-R, con la differenza che legge tutto il settore, 
senza tener conto della posizione del puntatore al momento della 
scrittura. Dopo l'esecuzione di U1 il puntatore si trova nella 
posizione 0 dell buffer. 
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USER2, si scrive: 

"U2:"saj dr;t;s 

agisce come B-W, ma non registra in posizione 0 la posizione 
finale del puntatore. 

Nella descrizione delle stringhe comando noi abbiamo usato il 
formato: comando abbreviato, seguito da due punti, tra virgo- 
lette, e dopo i parametri separati da E' possibile scrivere 

anche tutto tra virgolette, nel caso che i parametri siano 
costanti, usando il separatore virgola; per esempio, cosi': 

"U2:3,0,15,8" 

I comandi possono essere scritti anche in modo non abbreviato. 


GESTIONE FILE RELATIVI 

I file relativi sono formati da record logici di lunghezza fis- 
sa. Il DOS li gestisce ricevendo una stringa comando che indica 
il numero d'ordine del record logico nel file e la posizione del 
puntatore nel record logico. 

Anche in questo caso sono necessarie 2 istruzioni OPEN: 

. 0PENlfn,8,15, per aprire il canale comandi. 

. OPENlfn,8,sa,nomef+",L,"+CHR$(LU), per aprire il canale dei 
dati con "lfn" diverso da quello del canale comandi, "sa" compre¬ 
so tra 2 e IH, L parametro richiesto per segnalare che l'aper¬ 
tura riguarda un file relativo, seguito dalla lunghezza del 
record logico passata come stringa. La lunghezza del record logi¬ 
co e' al massimo 25H. Questa OPEN produce la registrazione di 
un'entrata per il file nella directory. 

Al termine delle operazioni la CLOSE del canale dei dati deve 
essere eseguita prima di quella relativa al canale dei comandi. 

II comando disponibile, da trasmettere con una PRINT# sul canale 
15, prima di ogni operazione di lettura o scrittura relativa al 
buffer, serve per selezionare il record logico e per posizionare 
il puntatore al suo interno. 

Esso si scrive: 

"P"+CHR$(sa)+CHR$(LO)+CHR$(HI)+CHR$(BI) 

•P, significa puntatore. 

•CHR$(sa), fornisce il numero del canale usato nella OPEN del 
canale dei dati, come stringa. 

.CHR$(L0)+CHR$(HI), forniscono il numero del record logico che 
si vuole trattare nella forma byte basso-byte alto. Si calcolano 
cosi': 

HI=INT(numerorecord/256) 

LO=numerorecord-HI*256. 

,CHR$(BI), fornisce il puntatore nel record. BI=1 per il primo 
campo, BI=N per puntare al campo che inizia dopo i primi N-1 
caratteri. 
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Dopo aver selezionato un record e una posizione, devi scrivere 
con una sola PRINT#,lista-dati tutti i campi che desideri nel 
record. Se esegui altre PRINT#,lista-dati, senza riposizionarti, 
vai a scrivere sui record successivi. Un record logico può’ esse-, 
re scritto a pezzi, ma ogni volta devi riposizionarti al record e 
al campo desiderato. 

Per leggere devi posizionarti al record e al campo desiderato e 
poi eseguire la INPUT#, lista-dati relativa a tutti i campi del 
record che ti interessano. Se non ripeti l’operazione di posizio- 
namento con successive INPUT# leggi il file in modo sequenziale, 
un record dopo l'altro. 

L'istruzione GET#, legge carattere per carattere a partire dalla 
posizione selezionata. 


PROGRAMMAZIONE IN LINGUAGGIO MACCHINA 
I comandi disponibili in questo gruppo sono: 

. BLOCK-EXECUTE, per eseguire un programma in linguaggio, macchi¬ 
na, memorizzato in un settore del floppy; 

. Memory-Write, per registrare al massimo 34 byte nella RAM 
dell'unita' 1541; 

. Memory-Read, per leggere il contenuto di byte della memoria 
dell'unita' 1541; 

. Memory-Execute, per eseguire codice macchina a partire da un 
byte della memoria dell'unita' 1541; 

. USERi, per saltare a particolari locazioni della memoria 
dell'unita' 1541 ed eseguire routine in codice macchina. 

Questi comandi, salvo BLOCK-EXECUTE, richiedono solo la preven¬ 
tiva apertura del canale 15. Il comando BLOCK-EXECUTE richiede 
anche l'apertura di un altro canale con 0PEN#lfn,8,sa,"#", per 
rendere disponibile un buffer per i dati. Nelle spiegazioni che 
seguono, oltre ai parametri già' noti, usiamo anche: 

,i, come numero di riferimento nella tabella dei salti USER, 
.adì, byte basso dell'indirizzo del blocco di memoria. 

.adh, byte alto dell'indirizzo del blocco di memoria. 

.nc, numero caratteri da trasferire, da 1 a 34. 

.dati, istruzioni in codice macchina; devi usare la funzione 
CHR$ con argomento uguale al numero decimale che rappresenta il 
contenuto di ogni byte. 

BLOCK-EXECUTE, si scrive: 

"B-E:"sa,dr ,t,s 

consente di caricare in un buffer dell'unita' 1541 il contenuto 
del blocco di indirizzo t,s, e di mandarlo in esecuzione, come 
programma in linguaggio macchina, a partire dalla posizione 0. 
Perche' questo comando possa essere eseguito con successo devono 
essere verificate le seguenti condizioni: 
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. la routine in linguaggio macchina deve trovarsi nel settore 
specificato e la prima istruzione deve stare nel primo byte 
(posizione 0); 

. la routine deve occupare al massimo 256 byte; 

. il settore del floppy deve essere stato scritto con il cornane 
do U2, per non danneggiare la posizione 0; 

. la routine deve terminare logicamente con l'istruzione RTS. 

La routine in linguaggio macchina può' lavorare modificando o 
leggendo i dati degli altri buffer della RAM dell'unita' 1541. 

Il comando può' anche essere scritto senza abbreviazione, e i 
parametri, se costanti, possono stare tra le virgolette separati 
da virgola. 

Memory-Write, si scrive: 

"M^W:"adl adh;nc;dati 

consente di registrare, al massimo 34 byte, nella RAM dell'u¬ 
nita' 1541. I parametri adì e adh, che forniscono l'indirizzo di 
memorizzazione, si devono calcolare; per scrivere all'indirizzo 
1794 : 

HI=INT(1794/256)=7 
L0=1794-^7*256=1794-. 1792=2 

CHR$(2)+CHR$(7) forniscono la stringa da usare nel comando per 
"adì adh". 

Il parametro "nc", deve essere passato come numero, o come varia-> 
bile numerica. 

I parametri "dati" sono ottenuti usando la funzione CHR$ avente 
come argomento i valori decimali dei byte da scrivere in memo¬ 
ria. Se con questo comando memorizzi una routine in linguaggio 
macchina, per eseguirla devi usare il comando Memory=Execute. No¬ 
ta la differenza con BLOCK-EXECUTE. 

Questo comando deve essere scritto in modo abbreviato. 

Memory-Read, si scrive: 

"M-R:"adì adh 

consente di leggere il contenuto del byte di indirizzo "adì adh" 
dalla memoria dell'unita' 1541. 

L'indirizzo deve essere passato con la funzione CHR$ dei byte LO 
e HI. 

II contenuto del byte indirizzato viene reso disponibile sul 
canale 15, per leggerlo devi eseguire GET# sul canale 15. Se ese-> 
gui piu' GET# successive l'indirizzo del byte viene incrementato 
automaticamente. 

Per esempio: OPEN15,8,15 

PRINT#15,"M-R:"CHR$(X)CHR$(Y) 

F0Rk=0T07:GET#15,a$(k):NEXTk 
CL0SE15 

legge nella matrice a$(k) 8 byte a partire dall'indirizzo di 

memoria 256*Y+X dell'unita' 1541. 
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Il comando puo'essere scritto solo abbreviato. 

Memory-.Execute, si scrive: 

"M-E:"adì adh 

consente di eseguire una routine in codice macchina memorizzata a 
partire dal byte di indirizzo "adì adh". Per il parametro indi- 1 
rizzo vale quanto detto per M-iR. Il comando può' essere scritto 
solo in modo abbreviato. 

Invece di prelevare ed eseguire una routine in codice macchina 
memorizzata su un settore del floppy, usando il comando 
BLOCK-EXECUTE, puoi usare prima il comando M-*W per memorizzare la 
routine in RAM e poi M-E per eseguirla. 

USERi, si scrive: 

"Ui" con i=0,3, 1 (.8,9 oppure: 

"Ua" con a=J,C,D.H.I 

consente di saltare a indirizzi fissi nella memoria dell'unita' 
1541. Tali indirizzi sono: 


U3 

o 

uc 

salto a 1280 

(0500H) 


U4 

O 

UD 


II 

" 1283 

(0503H) 


U5 

0 

UE 


II 

" 1286 

(0506H) 


U6 

0 

UF 


II 

" 1289 

(0509H) 


U7 

o 

UG 


fi 

» 1292 

(050CH) 


U8 

0 

UH 


II 

" 1295 

(050FH) 


U9 

o 

UI 


II 

" 65530 

(FFFAH) 


UO 

0 

UJ 


II 

alla routine di 

accensione. 

Puoi 

memorizzare 

a 

partire da 

questi 

indirizzi, se sono RAM 


tine in linguaggio macchina e andarle a eseguire usando i coman-> 
di Ui relativi. 

6.3 GESTIONE DEGLI ERRORI DISCO 

Quando si verifica un errore relativo ad un'operazione dell'u-> 
nita' 1541 l'indicatore luminoso a luce rossa comincia a pulsa-* 
re, ma non si ha una segnalazione automatica di errore. Per rile¬ 
vare gli errori devi inserire nei tuoi programmi una routine di 
errore, leggendo, attraverso il canale 15, i 4 dati seguenti: 

. EN, numero dell'errore, dato numerico; 

. EM$, messaggio di errore, dato di tipo stringa; 

. ET, numero della traccia interessata, dato numerico; 

. ES, numero del settore interessato, dato numerico. 

Le 4 variabili citate non sono riservate, puoi usare quelle che 
vuoi, le nostre sono abbastanza mnemoniche. Puoi anche usare 
variabili di tipo stringa per tutti i dati. 

Supponendo che all'inizio del programma sia stata eseguita 
l'istruzione: OPEN15,8,15, la routine di errore può' avere que¬ 
sta forma: 
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5000 INPUT#15,EN,EM$,ET,ES 
5002 IFEN=0 THEN RETURN 
500M PRINT"ERR0RE: ";EN,EM$,ET,ES 
5006 STOP 

essa lascia aperto il canale 15. Ti raccomandiamo di eseguire il 
controllo degli errori dopo ogni operazione disco. 

Un altro modo per controllare se ha avuto luogo un errore e' 
quello di leggere le due variabili riservate del BASIC: DS e DS$, 
dopo l'esecuzione di ogni operazione disco. In DS trovi il nume-, 
ro del messaggio di errore, in DS$ trovi il numero e il messag¬ 
gio di errore, il numero della traccia e il numero del settore. 
Con DS$ ottieni le stesse informazioni fornite dalla routine di 
errore, solo che esse si trovano in una sola stringa. Per analiz¬ 
zare o stampare il contenuto di queste due variabili riservate 
non e' necessario il canale 15; esse sono automaticamente dispo¬ 
nibili per il BASIC. 

L'esecuzione della routine di errore o l'analisi delle variabili 
DS e DS$ hanno l'effetto di spegnere l'indicatore dì errore se 
esso e' acceso. 

Non devi confondere le segnalazioni di errore, relative ad opera¬ 
zioni disco, fornite dal sistema operativo del COMMODORE PLUS-4, 
con quelle del DOS. Se, per esempio, esegui un'istruzione PRINT# 
su un file non aperto, la segnalazione di errore dipende dal fat¬ 
to che il COMMODORE PLUS-M non ha trovato aperto il file nella 
tabella di gestione, il DOS non c'entra. 

Il codice di errore 00 significa che l’operazione e’ andata bene; 
il codice 01 che e' stato cancellato un file. 

Inoltre, dopo ogni operazione disco può' essere analizzata la 
variabile riservata ST; essa può' avere i seguenti valori: 

. 0 per tutto bene 

. 1 per scrittura con tempizzazione errata 

. 2 per lettura con tempizzazione errata 

. 6M per segnalazione di EOF (End Of File) 

. 128 per apparecchiatura non presente 
e quindi non fornisce informazioni complete sull'andamento 
dell'operazione. 


MESSAGGI ERRORE DOS 


20 READ ERROR 

il controllore del disco non riesce a trovare la testata del set¬ 
tore richiesto, o l'indirizzo non e' valido o il floppy e' rovi¬ 
nato. 

21 READ ERROR 

il controllore del disco non riesce a trovare il carattere di 
sincronizzazione sulla traccia richiesta. Può' essersi verifi- 
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cato un errore di allineamento, un errore hardware o il floppy 
non essere formattato. 

22 READ ERROR 

per un comando DOS di tipo BLOCK non viene trovato il settore; 
può' essere invalido l'indirizzo o danneggiato il floppy. 

23 READ ERROR 

si verifica un errore di CHECKSUM dopo la lettura di un blocco, 
cioè' i controlli sui caratteri letti non tornano; può' dipen¬ 
dere da una messa a terra difettosa. 

READ ERROR 

si verifica un errore hardware, può' dipendere da messa a terra 
difettosa. 

25 WRITE ERROR 

i dati registrati non corrispondono al contenuto del buffer. 

26 WRITE PROTECT ON 

tentativo di scrivere su un floppy con protezione, cioè' con 
finestrella laterale chiusa. 

27 READ ERROR 

errore nella lettura di una testata, può' dipendere da messa a 
terra difettosa. 

28 WRITE ERROR 

non viene trovato, dopo la scrittura di un blocco, il carattere 
di sincronizzazione del blocco seguente. Il floppy può' essere 
rovinato o non formattato o verificarsi un errore hardware. 

29 DISK ID MISMATCH 

non riesce a identificare un floppy, che può' essere non format-^ 
tato o rovinato. 

30 SYNTAX ERROR 

il DOS non riesce a interpretare un comando ricevuto, possono 
essere errati o mancare alcuni parametri. 

31 SYNTAX ERROR 

il DOS non riconosce un comando, per esempio esso inizia con uno 
spazio. 

32 SYNTAX ERROR 

comando troppo lungo, piu' di 58 caratteri. 

33 SYNTAX ERROR 

e' stato usato un nome non valido. 


164 



34 SYNTAX ERROR 

il DOS non riconosce il nome di un file. 

39 SYNTAX ERROR 

non viene riconosciuto un comando inviato sul canale 15. 

50 RECORD NOT PRESENT 

tentativo di leggere un file dopo aver raggiunto EOF. Per i file 
relativi si verifica questo errore nella fase di preestensione e 
deve essere ignorato. 

51 OVERFLOW IN RECORD 

si tenta di scrivere in un blocco piu' caratteri di quelli 
consentiti. 

52 FILE TOO LARGE 

si scrivono piu' record di quelli previsti su un file relativo. 

60 WRITE FILE OPEN 

si apre in lettura un file già' aperto per scrivere e non chiu¬ 
so. 


61 FILE NOT OPEN 

si tenta un'operazione su un file non aperto. 

62 FILE NOT FOUND 

il file richiesto non viene trovato. 

63 FILE EXISTS 

si cerca di creare un file che esiste già' e non si e' usato il 
carattere 

64 FILE TYPE MISMATCH 

il tipo di operazione fa riferimento a un file di tipo diverso da 
quello esistente. 

65 NO BLOCK 

indica che il blocco richiesto con B-A e' già' occupato, ma 
fornisce in ET e ES l'indirizzo del primo blocco libero. ET e ES 
sono a zero se il floppy e' pieno. 

66 ILLEGAL TRACK AND SECTOR 

si tenta di accedere a settori che non esistono. 

67 ILLEGAL SYSTEM T OR S 
traccia o settore non consentiti. 

70 NO CHANNEL 

il canale richiesto e' occupato o non ci sono canali liberi. 
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71 DIRECTORY ERROR 

i controlli non consentono di creare una BAM valida. 
Probabilmente il dischetto non e' ricuperabile. 

72 DISK FULL 

indica o che il dischetto e' pieno o che sono esaurite le 144 
entrate nella directory. 

73 DOS MISMATCH 

le versioni del DOS non sono compatibili in scrittura. Si tenta 
di scrivere su un floppy formattato con un'altra versione. 

74 DRIVE NOT READY 

non c'e' il floppy oppure esso non e' stato formattato o il drive 
e' guasto. 


6.4 FILE DI PROGRAMMA 

I programmi sono memorizzati sul dischetto come file di tipo PRG. 
Nella relativa entrata della directory si trovano tutte le inforr 
mazioni necessarie per reperire il file, e cioè* l'indirizzo di 
traccia e settore del primo blocco, il numero dei blocchi occu¬ 
pati, e, se necessario, l'indirizzo del primo blocco per la 
rimemorizzazione con il carattere "g". Per analizzare il conte¬ 
nuto della directory puoi usare il programma DCOMEFS, riportato 
nel Paragrafo 6.8. I blocchi nei quali viene registrato un 
programma sono concatenati tra loro tramite i primi 2 caratteri, 
che recano il numero della traccia e del settore successivo. 
L'ultimo blocco reca 0 per numero di traccia e il valore del 
puntatore all'ultimo byte occupato al posto del numero del setto-' 
re. Per vedere come il programma viene conservato sul disco puoi 
usare il programma TRAC/SET, riportato nel Paragrafo 6.8; solo 
che la lettura del contenuto dei blocchi non e' semplice, dato 
che si vedono i numeri in esadecimale. Se te ne occupi troverai 
che il programma termina con 2 byte contenenti tutti bit 0, dopo 
il byte a 0 che chiude l'ultima istruzione. 

Per memorizzare un programma sul floppy sono disponibili le 
istruzioni SAVE e DSAVE, già' esaminate nel precedente volume. 
Queste istruzioni possono essere scritte anche facendo precedere 
al nome del programma i caratteri oppure "@dr:", con l'ef¬ 
fetto di cancellare la precedente versione del programma. Non ti 
consigliamo di procedere cosi'; infatti a volte operazioni di 
questo tipo danneggiano la BAM. Se devi rimemorizzare un program¬ 
ma e' preferibile prima cancellarlo con il comando SCRATCH, usa-> 
to in una delle due versioni disponibili, e poi memorizzarlo con 
SAVE, ma senza usare il carattere di cancellazione 
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Dopo la memorizzazione di un programma e' bene verificare con 
VERIFY la bontà' della registrazione. Puoi anche richiamare con 
il comando DIRECTORY la directory sul video; questo comando e' 
molto comodo dal momento che non cancella il contenuto della 
memoria e il programma presente resta invariato. Se invece cari¬ 
chi e listi la directory con: 

OPEN15,8,15:LOAD"$",8:LIST il programma viene cancellato. 

Per caricare in memoria un programma puoi usare i comandi DLOAD e 
LOAD. Se li usi in immediato il programma viene solo caricato, 
mentre se li usi da programma, ottieni anche la partenza, come se 
venisse eseguito: GOTO prima-linea. In questo caso ottieni il 
concatenamento dei programmi, ma il sistema non mette a posto il 
puntatore all'inizio della zona variabili, che varia in dipen¬ 
denza dalla lunghezza dei programmi. Per operare correttamente il 
programma concatenato deve avere una prima istruzione che siste-» 
ma tali puntatori, cosi': 

0 POKE 45,PEEK(157):POKE 46,PEEK( 158) :CLR. 

Con opportuni accorgimenti e' possibile eseguire programmi conca¬ 
tenati che abbiano le variabili in comune. Basta che il primo 
programma sposti il puntatore all'inizio delle variabili in posi-' 
zione tale che vada bene per il programma piu' lungo e che tutti 
i programmi usino le stesse variabili con lo stesso signi¬ 
ficato. 

Nel precedente volume abbiamo preso in esame il significato del 
flag che può' essere aggiunto in fondo alle istruzioni per 
memorizzare e caricare i programmi e influisce sulla loro riloca- 
bilita' in memoria. 

6.5 FILE SEQUENZIALI DI DATI 

I file sequenziali di dati su disco hanno le stesse caratte¬ 
ristiche di quelli su nastro; l'unica differenza rilevante consi¬ 
ste nel fatto che e' possibile aggiornare un file senza doverlo 
trascrivere tutto in memoria (vedi Paragrafo 11.6 del primo volu¬ 
me), ma creando un nuovo file sullo stesso dischetto, con nome 
diverso, nel quale trascrivere e aggiornare record dopo record il 
vecchio file. Al termine dell'aggiornamento il vecchio file può' 
essere cancellato, e al nuovo file può' essere assegnato il vec-i 
chio nome con il comando RENAME. 

Riepiloghiamo le caratteristiche di questo tipo di file: 

. record fisico di dimensioni pari a un settore, con i primi due 
caratteri usati per il concatenamento dei settori e gli altri 254 
per i dati. La gestione del record fisico risulta trasparente per 
l'utente che lavora a livello di record logico. Alla fine del fi¬ 
le viene riconosciuta la condizione EOF; essa può' essere 
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controllata tramite la parola dì stato ST, le variabili riser¬ 
vate DS o DS$, la routine di errore leggendo EN, EM$, ET e ES sul 
canale 15. 

. record logico di lunghezza fissa o variabile, ma con lo stes¬ 
so numero di campi, se si desidera poter leggere a livello di 
record. Tieni presente che se scrivi un file sequenziale con 
record logici tali che l'ultimo blocco fisico contiene 25H carat- 
teri, cioè' e' completo al momento della chiusura, viene occu¬ 
pato un settore in piu' solo in modo apparente; cioè' tale set¬ 
tore manca nel computo dei blocchi liberi e occupati. Se esegui 
il comando COLLECT, o VALIDATE, la directory torna in ordine e il 
file può' essere letto senza problemi. 

. campi di lunghezza fissa o variabile, tenendo presenti le 
limitazioni imposte dal comando INPUT#, che non può' leggere piu' 
di 88 caratteri tra due CHR$(13) (RETURN). Inoltre va tenuto 
presente che, se il separatore (registrato) tra i campi e' la 
virgola, essi devono essere letti tutti da una sola istruzione 
INPUT#, che lavora sui dati compresi tra due CHR$(13). Una varia¬ 
bile che contiene solo spazi da' luogo a un campo nullo, cioè' 
due caratteri separatori vicini, che in fase di lettura sono 
riconosciuti come uno solo, e quindi viene perso un campo. 

. in fase di scrittura i caratteri separatori tra i dati della 
lista agiscono come per la cassetta: il punto e virgola non 
aggiunge spazi, la virgola si. 

. al momento della OPEN per scrivere viene creata la nuova 
entrata nella directory; essa viene completata al momento della 
CLOSE. Se il file non viene chiuso, l’entrata rimane in stato 
irregolare e il file non può' essere utilizzato. 

. non e' necessario aprire il canale 15, se non vuoi gestire gli 
errori tramite di esso, ma ti raccomandiamo di farlo. Infatti e' 
buona norma eseguire la routine di errore dopo ogni operazione 
disco. 

Le istruzioni BASIC disponibili sono: 

OPENlfn,dn,sa,"dr:nomef.tipo,modo" 

per aprire il file. I parametri possono essere costanti e varia¬ 
bili: 


. lfn, numero logico del file da 0 a 127. 

. dn, 8 per la prima unita'. 

. sa, canale per i dati da 2 a IH. 

. dr, numero drive, 0 per default, può' essere omesso. 

. nomef, nome del file, massimo 16 caratteri. 

. tipo, S, che significa sequenziale. 

. modo, W per scrivere e R per leggere. A per aprire in scrit¬ 
tura un file preesistente da allungare; dopo questa apertura il 
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primo comando di scrittura va a scrivere a partire dalla fine del 
vecchio file. 

Puoi usare per la OPEN per scrivere questo formato: 

OPENlfn,dn,sa,"@dr:nomef,S,W" 

ottenendo di cancellare, se esiste, un file con lo stesso nome. 
Ti consigliamo di non usare questo formato, ma di cancellare il 
vecchio file con il comando SCRATCH e poi di aprirlo per scri-i 
vere. 

Il DOS interpreta il comando e predispone il messaggio di errore 
in seguito all'esecuzione. 

Possono essere aperti contemporaneamente fino a 3 file sequen¬ 
ziali su un floppy; il DOS li distingue in base al valore di 
"lfn". 


PRINTtflfn,lista-dati 

per scrivere i dati sul file aperto per scrivere, con numero 
logico "lfn". Non ripetiamo le considerazioni su lista-’dati, già' 
viste all'inizio. 

INPUT#lfn, listatati 

per leggere nelle variabili di listatati dal file aperto per 
leggere, con lo stesso valore di "lfn". Il tipo delle variabili 
deve concordare con il tipo dei dati che si leggono, altrimenti 
si ha errore. 

GET#lfn,lista-dati 

per leggere i dati carattere per carattere dal file aperto per 
leggere, con lo stesso valore di "lfn". E' meglio che lista-dati 
contenga solo variabili stringa. 

CLOSElfn 

per chiudere il file aperto con numero logico "lfn". La chiusura 
di un file aperto per scrivere fa aggiungere la segnalazione di 
EOF e provoca l'aggiornamento della directory e della BAM sul 
floppy. Per tutti i tipi di file la CLOSE provoca l'aggior-> 
naraento in memoria della tabella di gestione dei file. 

Come esempio abbiamo realizzato il programma SEQDISCO. Esso 
gestisce un archivio sequenziale di dati su disco, consentendo le 
seguenti operazioni: 

.1) creazione ex-.novo del file. I record devono essere forniti 
in ordine in base ai primi due campi, l'ordine viene controllato 
e non accetta record con i primi due campi uguali. 

.2) lista completa del file su stampante, nell’ordine di 
registrazione dei record. 
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•3) aggiornamento del file, cioè': 

. inserimento nuovi record, che devono essere forniti in 

ordine. 


. modifica record esistenti, procedendo nell'ordine di 
registrazione dei record. 

. cancellazione record, procedendo nell'ordine di registra-> 
zione dei record. 

L'archivio viene mantenuto in ordine crescente in base ai primi 
due campi di ogni record, ma senza ricorrere a ordinamento; quin- 
di i record devono essere caricati in questo ordine e il program¬ 
ma scarta quelli fuori ordine. 

Il programma e' stato scritto ricorrendo alla tecnica dei 
sottoprogrammi; in conseguenza esso e' facilmente modificabile 
per adattarlo alle proprie esigenze. 

Noi abbiamo lavorato con un record logico di lunghezza varia¬ 
bile, ma formato da un numero fisso di campi, 5 per ogni record, 
ognuno di lunghezza variabile. I campi sono separati tra loro dal 
carattere CHR$(13); questo ci consente di avere per ogni campo la 
massima lunghezza possibile, cioè' 88 caratteri. La gestione 
dell'archivio avviene a livello record, trattando sempre lo stes¬ 
so numero di campi; in conseguenza e' necessario che ogni record 
abbia tutti i campi stabiliti. Per mantenere questa caratte¬ 
ristica, quando un campo manca esso viene registrato con il 
carattere CHR$(160), che corrisponde a SHIFT-spazio, e che in fa¬ 
se di lettura non da' luogo a un campo vuoto, come succederebbe 
con il carattere spazio normale. 

Nella Figura 6.3 riportiamo uno schema a blocchi della fase di 
aggiornamento del file, che risulta la piu' complicata. Durante 
questa fase viene creato un file temporaneo, di nome TEMP, sul 
quale viene aggiornato il file vecchio; alla fine il file vec¬ 
chio viene cancellato e al file TEMP viene cambiato il nome, 
assegnandogli quello del vecchio file. 


Il programma non presenta un menu' iniziale, ma pone successi¬ 
vamente domande sulle operazioni che si vogliono fare; a tali 
domande devi rispondere con S per SI e N per NO. Per uscire dal¬ 
la richiesta di un record devi rispondere con il carattere aste¬ 
risco al primo campo. Se manca un campo puoi rispondere solo 
con RETURN, provvede il programma a sostiuirlo con il carattere 
CHR$(160) (SHIFT-spazio). Ogni fase termina con lo STOP; se vuoi 
proseguire devi eseguire il comando RUN. All'inizio di ogni fase 
viene chiesto il nome del file. Il file può' essere lungo a 
piacere, compatibilmente allo spazio disponibile sul floppy. Nel¬ 
la fase di lista i dati sono presentati ponendo su una riga i 
primi due campi e sull'altra gli altri 3, inoltre non viene usa- 4 
to un conta righe per il cambio del foglio. 
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Figura 6.3 Diagramma a blocchi dell'aggiornamento 


1 REM SEQDISCO 

3 REM CREAZIONE E GESTIONE FILE SEQUENZIALE 
5 REM *** 
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7 REM PARAMETRI DI STAMPA-APERTURA CANALE 15 
9 NF=4:PR=4-0PEN15,8,15 -G0SUB397 

II REM *** 

13 REM COSTANTI E VARIABILI 
15 NC=5:CHS=CHRS<13):SPS=" 

17 DIMI$<NC),I1$(NC),DÌ(NC) 

19 DATA "CAMPOi 'V'CAMPOZ ‘VCAMP03 " 

21 DATA “CAMP04 , "CAMP05 " 

23 FORK=lTONC:READDS(K>:NEXTK 
25 REM 

27 REM SCELTA OPERAZIONE 

29 PRINT"U>1>]CREAZIONE FILE SzN "J : INPUTRS 
31 IFR$<>”S"THEN7i 
33 REM *## 

35 REM CREAZIONE FILE 
37 G0SUB297:G0SUB281:G0SUB3B3 
39 PRINTW15, ‘"IO"' : REM INIZIALIZZAZIONE 
41 REM **•* 

43 REM APERTURA FILE PER SCRIUERE-CANALE 2 
45 0PEN2,8,2,"0 :"+NFS+”,S, W* :G0SUB397 
47 LC$ = ,,,, :LN$=“ , ‘:REM UECCHI CAMPI 1 E 2 
49 G0SUB233: REM RICHIESTA DATI 
51 IFSM=0THEN61 
53 CL0SE2:CL0SE15 

55 PRINT"[l)FINITO CARICAMENTO FILE":STOP 
57 REM 

59 REM CONTROLLO ORDINE RECORD 
61 IFIS<1>>LC$THEN67 
63 IFI$<i)=LC$THENIFI$<2>>LN$THEN67 
65 G0SUB289:G0T049 
67 LC$=IS<1) LN$=I$<2> 

69 G0SUB267:G0T049 
71 REM *** 

73 REM STAMPA FILE 

75 PRIHT” L1»I»1 STAMPA FILE S/N”; : INPUTR$ 

77 I FRS<>"S‘‘THENI03 
79 G0SUB297:G0SUB281 

81 PRIHTH15, ''IO": REM INIZIALIZZAZIONE 
83 GOSUB303:GOSUB309 

85 OPENNF,PR:PRINTMNF,"LISTA ARCHIUIO ";NF$ 
87 PRINTMNF 
89 REM *«* 

91 REM LETTURA E STAMPA RECORD 
93 G0SUB259:PRINT«NF,I$<i>;SPS; I$<2> 

95 F0RK=3T0NCPRINTNNF,I$CK>;SP$; NEXTK 
97 PRINT«NF:PRINT*»NF: IFFSOG4THEN91 
99 CL0SE3:CLOSENF:CL0SE15 
101 PRINT"l!]FINITO LISTA"STOP 
103 REM *** 

105 REM AGGIORNAMENTO FILE 

107 FF = 0 : PRINT"UJAGGIORNAMENTO FILE" 

109 G0SUB297:G0SUB281 

III PRINTM15,"10"- REM INIZIALIZZAZIONE 
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113 G0SUB383:GOSUB309 
115 REM 

117 REM APERTURA FILE TEMPORANEO PER SCRIVERE 
119 0PEN2,8, 2 ,"0 :TEMP, S, W":G0SUB337 
121 LC$="” : LN$="" 

123 PRIWT ,, mi!i TIPO DI VARIAZIONE:” 

125 PRINT”1=INSERIMENTO”:PRINT”2=UARIAZIONE" 
127 PRINT"3=CANCELLAZI0NE” 

129 INPUTR:IFR<10RR>3THEN129 

131 FL=0: REM 1 SE ULT. REC. LETTO DA SCRIVERE 
133 FF = 0: REM 1 SE FINITO FILE INPUT 
135 0NRG0T0137,185,289:REM SCELTA OPERAZIONE 
137 REM *** 

139 REM INSERIMENTO RECORD 
141 G0SUB233:IFSW=6THEN155 
143 60SUB359:CL0SE3:CL0SE2 
145 PRINT”fcJFINITO AGGIORNAMENTO” 

147 REM *** 

149 REM SISTEMAZIONE FILE SU DISCO 
151 PRINT#15,"S0:”+NF« 

153 PRINTM15,"R0:”+NF$+“=TEMP":CL0SE15: STOP 
155 IFI$(1>>LC$THEN1?5:REM INSERISCE 
157 REM 

159 REM DATI IN DISORDINE 

161 IFI$(1XLC$THENG0SUB289 : G0T0137 

163 REM ww 

165 REM PRIMO CAMPO UGUALE 

167 IFI$<2)>LN$THEt<175 

169 IFI $< 2XLN$THENG0SUB289:60T0137 

171 G0SUB275:G0T0137 

173 REM *** 

175 REM DATI IN ORDINE 

177 LC$=I$<1):LNS=IS<2):G0SUB317 

179 IFI$(lX>Il$(i>THEN183 

181 IFI$<2)=I1$<2)THENG0SUB275:G0T0137 

183 G0SUB267:G0T0137 

185 REM w»» 

187 REM MODIFICA RECORD 
189 G0SUB233:IFSM=0THEN193 
191 GOT 0143 

193 IFI$<1>>LC$THEN199 

195 IFI$<i)=LCSTHENIFI$<2>>LN$THEN199 

197 G0SUB289:G0T0185 

199 LC$ = I$<1> :LN$ = I$<2> G0SUB373 

201 IFFL=1ANDFF=0THEN185 

203 IFFL=1ANDFF=1THENFL=0:GOTO143 

205 G0SUB267:IFFF=1THEH143 

207 G0T0185 

209 REM 

211 REM CANCELLAZIONE RECORD 

213 PRINTDS<1); :INPUTIXi):IFIS<1>="*”THENi43 
215 PRINTD$<2); :INPUTI$<2>:IFIS<i>>LC$THEN221 
217 IFIS<1)=LC$THENIFI$(2>>LN$THEN221 



219 G0SUB289:G0T0209 

221 LC$=I$<1>LN$=IS<2>:G0SUB373 

223 IFFF=1ANDFL=0THEN143 

225 G0T0269 

227 REM *** 

229 REM SOTTOPROGRAMMI 
231 REM *** 

233 REM RICHIESTA DATI 

235 SW=0: REM 1 SE FINITI DATI 

237 PRINT"Li 1 D$<1INPUT I$<i> 

239 IFI $< 1>=”*"THENSH=1 : RETURN 

241 FORK=2TONC:I $<K> = CHRS<160):NEXTK 

243 F0RK=2T0NCPRINTK;DS<K); : INPUTISCK):NEXTK 

245 PRINT"l<JCONFERMI S/N"; : INPUTRS 

247 IFR$=”S"THENRETURN 

249 PRINT"QUALE CAMPO INPUT R 

251 IFRCIORRJNCTHENPRINT'TT;:G0T0249 

253 PRINTD$<R); :I$(R)=CHR$(Ì60>: INPUTI$<R> 

255 PRINT"L,"; 

257 FORK=lTONC:PRINTKj D$< K ) ; I$<K) : NEXTK : G0T0245 
259 REM LETTURA RECORD DA DISCO 
261 FORK=lTONC:INPUTW3,IS<K>:FS=ST 
263 G0SUB397:NEXTK:RETURN 
265 REM 

267 REM SCRITTURA NUOUO RECORD 
269 FUiìK-JTONC:PRINT«2, IS<K);CHS; 

271 G0SUB397:NEXTK:RETURN 
273 REM «» 

275 REM MESSAGGIO CAMPI 1 E 2 UGUALI 

277 PRINT"DATI CAMPI 1 E 2 UGUALI":G0SUB281:RETU 

RN 

279 REM *** 

281 REM ATTESA TASTO 
283 GETAS:IFAS=""THEN281 
285 RETURN 
287 REM *** 

289 REM MESSAGGIO FUORI ORDINE 
291 PRINT"l!]DATI FUORI ORDINE" : G0SUB281 
293 RETURN 
295 REM *** 

297 REM RICHIESTA DISCO DATI 

299 PRINT"l!lMONTA DISCO DATI" : RETURN 

301 REM *** 

303 REM RICHIESTA NOME FILE 
305 INPUT"NOME FILE ";NFS : RETURN 
307 REM *** 

309 REM APERTURA FILE PER LEGGERE-CANALE 3 
311 0PEN3,8,3,"O:"+NFS*",S,R":G0SUB397 
313 RETURN 
315 REM *** 

317 REM LEGGE RECORD E SCRIVE FINO AL 
319 REM RECORD PRECEDENTE SU TEMP 
321 IFFF=iANDFL=8THENRETURN 
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323 IFFLO0THEN329 

325 G0SUB343 

327 IFFS=64THENFF=i 

329 IFI1$<1)<IS<1)THEN335 

331 IFI1S<1)=IS<1)THEHIFI1S<2><IS(2»THEN335 

333 FL=1:RETURN 

335 G0SU8351:FL=0 

337 IFFF=1THENRETURN 

339 G0T0325 

341 REM *** 

343 REM LETTURA RECORD 
345 FORK=lTONC: INPUTN3,11$<K>:FS=ST 
347 G0SUB397:NEXTK:RETURN 
349 REM *** 

351 REM SCRITTURA RECORD 
353 F0RK=iT0NC:PRINT«2,I1S<K) 

355 G0SUB397:NEXTK:RETURN 
357 REM 

359 REM SCRIUE FILE TEMP FINO ALLA FINE 

361 REM DEL FILE DI INPUT 

363 IFFF=1ANDFL=0THENRETURN 

365 IFFLOOTHENFL=0 : G0SUB351 : G0T0359 

367 G0SUB343:G0SUB351: IFFS=64THENFF=1: RETURN 

369 G0T0367 

371 REM *** 

373 REM COPIA FILE FINO AL RECORD CERCATO 

375 IFFF = 1ANDFL = 0THEN388 

377 IFFLO0THEN381 

379 G0SUB343:IFFS=64THENFF=1 

381 IFU$<i><I$<l)THEN389 

383 IFIl$(l)=I$<i)THENIFIi$<2>CI$(2>THEN389 
385 IFI1S(1)=I$<1)ANDI1S<2)=IS<2»THENFL=0:RETURN 

387 FL=1 

388 PRINT''NON TROUATO":G0SUB281: RETURN 

389 G0SUB351 

391 IFFF=1THEN388 
393 G0T0379 
395 REM 

397 REM ROUTINE ERRORE 
399 INPUTtti5,EN,EM$,ET,ES 
401 IFEN=OTHEN RETURN 
403 PRINT”ERRORE DISCO” 

405 PRINTEN,EM$,ET,ES:STOP 


ELENCO VARIABILI 

. NF, -M, numero logico file di stampa. 

.PR, A, dn della periferica di stampa. 

.NC, 5, numero campi del record. 

.CH$, CHR$(13), carattere separatore RETURN. 
,SP$, 4 spazi. 



. I$(NC), vettore per leggere i dati dalla tastiera. 

•I1$(NC), vettore per leggere da disco il record. 

.D$(NC), vettore per le descrizioni dei campi, contenute nelle 
linee DATA. 

.R$, variabile per risposte. 

.LC$, primo campo vecchio. 

• LN$, secondo campo vecchio. 

.FS, memorizzazione parola di stato ST. 

•EN, EM$, ET, ES, variabili per controllo errori. 

.SW, switch per controllare l'ingresso dei dati: 0 per si dati, 
1 per finiti i dati. 

.FF, switch per fine file di input, 1 per finito. 

.FL, switch per utilizzo ultimo record letto: 0 utilizzato, 1 
non utilizzato. 

.R, K, variabili per il controllo dei cicli. 

Per adattare il programma alle tue esigenze puoi fare le seguenti 
ti modifiche: 

.PR=3 per listare sul video. 

.NC per passare da 5 al numero di campi desiderato. 

.linee DATA 19/21, per modificare le diciture dei campi. 

.linee da 85 a 103 per ottenere un diverso formato di stampa. 

COMMENTO A SEQDISCO 

.1/23: definizione costanti e variabili, apertura canale 15, che 
viene chiuso alla fine di ogni fase. 

.25/55: creazione file ex->novo. 

.57/69: controllo ordine record nella fase di creazione ex-.no-* 
vo. 

.71/103: stampa file. 

.105/121: inizio fase di aggiornamento, apertura file tempo¬ 
raneo. 

.123/135: scelta tipo aggiornamento, azzeramento switch. 

.137/1 iJ5: fase inserimento nuovi record. 

.1^7/155: sistemazione file temporaneo per fine aggiornamento. 
.157/171: controllo ordine dei record e uguaglianza primi 2 cam-’ 
pi nella fase di inserimento. 

.173/183: inserimento se dati in ordine. 

.185/207: fase aggiornamento record per modifiche. 

.209/225: fase cancellazione record. 

.227/263: inizio sezione per i sottoprogrammi. Richiesta dati da 
tastiera. 

.265/271: scrittura nuovo record. 

.273/277: messaggio per campi chiave uguali. 

.279/285: attesa tasto per proseguire. 

.287/293: messaggio record fuori ordine. 

.295/299: richiesta disco dati. 

.301/305: richiesta nome file. 
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.307/313: apertura file per leggere. 

•315/339: avanzamento e copiatura file fino al record prece¬ 
dente, per la fase di modifica record. 

.341/347: lettura record da di3C0. 

•349/355: scrittura record su TEMP. 

.357/369: finisce di ricopiare file su TEMP. 

.371/393: copia file fino al record cercato, per la fase di 
cancellazione. 

.395/405: routine di controllo errore disco. 

6.6 FILE RANDOM DI DATI 

Questa denominazione di file e' abbastanza impropria, ma ormai in 
uso; per questa ragione anche noi chiamiamo random questi file, 
che in realtà' sono ad accesso diretto. Essi sono gestiti con il 
gruppo dei comandi DOS per l'accesso diretto, che non comportano 
una registrazione nella directory del disco. La cosa non e' 
consigliabile, dal momento che su un floppy che contenga file 
random non si possono eseguire i comandi VALIDATE e COLLECT che 
controllano e sistemano la BAM e la directory. Noi per comple¬ 
tare l'argomento presentiamo un programma che gestisce in modo 
RANDOM un archivio di dati, in modo pericoloso, cioè' senza 
registrazione nella BAM; e un secondo programma che gestisce un 
file in modo RANDOM-USER, con l'accorgimento di preparare 
preventivamente il floppy in modo che il file sia anche registra¬ 
to nella directory. In questo secondo caso sono eseguibili sul 
floppy anche i comandi VALIDATE e COLLECT. 

Nell'organizzazione diretta il file viene gestito a livello di 
record fisico, cioè' di settore, conoscendone l'indirizzo t,s. 

Il record logico deve essere definito con tutti i suoi campi e 
adattato alla struttura fisica. Senza addentrarsi in tecniche di 
programmazione piuttosto sofisticate, il modo migliore per gesti¬ 
re questo tipo di file e' di definire un record logico di 
lunghezza fissa, formato da un numero fisso di campi di lunghez¬ 
za fissa, in modo tale che risulti di lunghezza multipla o 
sottomultipla di un settore, considerato di 254 caratteri. Prefe¬ 
riamo usare solo 254 caratteri in un settore per poter mantenere 
l'uso dei primi 2 byte per il concatenamento tra i settori, come 
per gli altri tipi di file. 

Dobbiamo ora affrontare un altro argomento relativo all'orga¬ 
nizzazione dei file, cioè' la possibilità' di reperire rapida¬ 
mente il record voluto. Nell'esempio relativo ai file sequen¬ 
ziali abbiamo preparato il file mantenendo i record in ordine in 
base a due campi chiave, pero' la ricerca poteva avvenire solo 
leggendo i record in sequenza. In questo caso possiamo accedere 
al record desiderato, se conosciamo l'indirizzo t,s. Come faccia¬ 
mo a sapere, per esempio in un archivio relativo a una biblio¬ 
teca, che il libro ARITMETICA PRATICA dell'autore PIPPO si trova 
in un determinato settore? Potremmo avere una lista su carta che 
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ci da' queste informazioni, cioè' un indice da consultare manuale 
mente prima di una ricerca. Ma, dal momento che abbiamo un calco¬ 
latore, e' meglio organizzarci per fargli svolgere tutto il lavo-' 
ro in modo automatico. 

In conseguenza quando creiamo un file ad accesso diretto, fisico 
per i. file random, logico per i file relativi che trattiamo nel 
prossimo paragrafo, dobbiamo creare anche un indice sequenziale, 
organizzato in base a uno o piu' campi di ordinamento, che ci 
fornisca gli indirizzi, fisici o logici, necessari per reperire 
un record. 

Il file INDICE, che e' un normale file sequenziale, deve essere 
abbastanza corto se possibile. L'altro file, quello diretto, si 
chiama PRINCIPALE. La situazione ideale e' che sia possibile 
caricare in memoria il file indice prima di iniziare l'elabo¬ 
razione del file principale; in tale modo le operazioni di ricer¬ 
ca nell'indice risultano molto veloci. Se questo non e' possi¬ 
bile, il file indice può' venir letto a blocchi, andando a leg¬ 
gere i blocchi successivi quando servono. Comunque la lettura del 
file indice risulta piu' veloce di quanto sarebbe il trattamento 
di un file principale, con tanti campi, di tipo sequenziale. 

Nel Paragrafo 6.2, nella sezione GESTIONE DIRETTA, sono ripor¬ 
tati i comandi per il DOS. Il trattamento dei file random impe¬ 
gna 2 canali, il canale 15, per i comandi, e un canale, da 2 a 14 
per i dati. Nel buffer dei dati agiscono le normali istruzioni 
PRINT#, INPUT# e GET#. 

Nel seguito riportiamo due esempi di programmi per gestire un 
archivio random normale e uno organizzato in modo da proteggere 
le registrazioni. Nei commenti trattiamo completamente l'argo¬ 
mento. 

Ti facciamo notare che i file random, dopo l'apertura, possono 
essere letti e scritti, mescolando le due operazioni. 

ARCHIVIO RANDOM 

Abbiamo preparato il programma ARCHIRANDOM per gestire un file 
RANDOM con indice. Le funzioni del programma sono le seguenti: 

.1) crea sul floppy un archivio RANDOM, che non ha un nome 
registrato nella directory, e il file indice INDI1, usando come 
campi chiave i primi due campi del record logico, e ordinando 
l'indice in ordine crescente in base ai campi chiave. 

.2) lista tutto l'archivio in ordine secondo l'indice INDI1. 

.3) aggiorna l’archivio operando: 

.3a) aggiunta di nuovi record, 

.36) modifica di record esistenti, 

.3c) cancellazione di record. 

Gli aggiornamenti avvengono sul file principale e sull'in¬ 
dice INDI1. 
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.^) crea un indice secondario INDI2 in base a un qualunque cam-. 
po del record, escluso il primo, in ordine decrescente del campo 
chiave. 

.5) lista tutto l'archivio in ordine secondo INDI2. 

Per gestire veramente un archivio di dati sono necessarie anche 
altre funzioni, come ricerca e stampa di un record o di un grup¬ 
po di record, estrazione di record con determinate caratte¬ 
ristiche, ecc.. Partendo dal nostro esempio, non ti sara' diffi-; 
Cile sviluppare in modo simile altre parti del programma. Il 
nostro scopo e' di mostrarti la problematica della gestione degli 
archivi di dati e alcuni esempi completi dell'uso delle istru¬ 
zioni del DOS per la gestione diretta dei file. 

Il programma e' stato sviluppato con la tecnica dei sottopro-* 
grammi e in modo che, con poche modifiche, può' essere adattato 
ad altre situazioni. 

Abbiamo organizzato un record logico formato da 14 campi di 
lunghezza fissa, realizzando un archivio anagrafico. Elenchiamo 
nell'ordine di registrazione le descrizioni dei campi e la loro 
lunghezza in caratteri: 


1) 

cognome 

20 

8) 

data nascita 

8 

2) 

nome 

15 

9) 

titolo studio 

20 

3) 

indirizzo 

30 

10) 

occup. attuale 

20 

4) 

CAP/citta' 

25 

1-1 ) 

occup. preced. 

20 

5) 

provincia 

11 

12) 

stato civile 

1 

6) 

telefono 

10 

13) 

nota 1 

20 

7) 

luogo nascita 

20 

14) 

nota 2 

20 


alla lunghezza di ogni campo devi aggiungere un carattere di fi-- 
ne campo, che per noi e' CHR$(13) (RETURN). Avremmo potuto usare 
anche CHR$(4H) (virgola), ma con il carattere RETURN siamo piu' 
liberi di leggere con ogni INPUT# i campi desiderati. La somma 
delle lunghezze dei campi piu' il carattere separatore da' 254, 
cioè' un settore non usando i primi due caratteri. Abbiamo quin¬ 
di coincidenza tra il record logico e il record fisico. I dati 
sono registrati nel settore partendo dal terzo carattere, cioè' 
posizionando il puntatore interno a 2. 

Per il file indice INDI1 ogni record e' formato dai seguenti cam¬ 
pi: 

. chiave: cognome+nome, di 35 caratteri, completando con spazi 
ogni campo se piu' corto della sua lunghezza, 

. indirizzo traccia, t, numero intero, 

. indirizzo settore, s, numero intero. 

Per il file INDI2, che viene creato quando si esegue il passo H, 
abbiamo 3 campi per record, come per INDI1, ma le dimensioni del 
primo campo dipendono dal campo scelto come chiave. Dal momento 
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che un campo chiave può' anche essere vuoto, se esso ha lunghez-* 
za 0, viene sostituito in INDI2 dal carattere CHR$(l60). In 
conseguenza nell'ordinamento decrescente di INDI2 i campi chiave 
vuoti risultano i primi. 

Dobbiamo fare alcune considerazioni sull'occupazione di memoria. 
Infatti l'indice INDI1 viene creato e gestito in memoria e poi 
scritto su disco, quindi richiede spazio per i 3 vettori nei qua-' 
li viene memorizzato. Non ci sembra utile fare dei conti precisi 
per il nostro archivio, dal momento che tu probabilmente persona-' 
lizzerai il programma secondo le tue esigenze. Per fare i conti, 
dopo aver caricato in memoria il programma, devi procedere cosi': 

.leggere il puntatore a inizio variabili, nei byte iJ5 e 46, e 
calcolarne il valore; 

.leggere il puntatore di fine zona BASIC, nei byte 55 e 56, e 
calcolarne il valore; 

.calcolare la differenza tra il secondo e il primo valore, che 
rappresenta il numero di byte a disposizione per tutte le varia¬ 
bili (tale numero lo ottieni anche eseguendo CLR:PRINT FRE(O)); 

.calcolare approssimativamente l'occupazione di memoria per ogni 
record di INDI1 e quindi ricavare il numero di elementi che può' 
avere ognuno dei 3 vettori. A questo punto hai fatto i conti con 
la memoria del calcolatore. 

Per il dischetto devi tener presente che ogni record del file 
random occupa un settore, calcolare l'occupazione di ogni record 
di INDI1 e di INDI2 in modo approssimato, dedurre il numero di 
record registrabili e controllare se tale numero si accorda con 
il calcolo fatto per la memoria del calcolatore. 

E' importante fare bene questi conti per non avere spiacevoli 
sorprese. In ca30 un archivio può' essere suddiviso in diverse 
parti e tenuto su piu' floppy. 

Il programma lavora usando un dischetto apposito per i dati; su 
questo nel settore 0 della traccia 1 sono memorizzati i dati 
generali del file, e precisamente: 

. data di aggiornamento, 

; numero dei record presenti, 

. indirizzo del blocco, traccia e settore, dell'ultimo record 
registrato. 

I record del file random sono registrati a partire dalla traccia 
1, settore 1. 

All'inizio viene presentato un menu' di scelta della funzione. Il 
programma procede con domande semplici nelle diverse situazioni. 
Per uscire dalla richiesta dati devi rispondere con il carattere 
dollaro al cognome. Quando compare un messaggio senza richie¬ 
sta di risposta per proseguire devi premere un tasto. 

Per uscire dal menu' senza operare devi scegliere la funzione 9 
(FINE). 
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I REM ARCHIRANDOM 
3 REM WHHHHH H HHM 

5 REM DEFINIZIONE COSTANTI E VARIABILI 
7 REM mtMmtmtmotmtmuoonntmcKmontmiiooot 
9 NC = 14■- REM NUMERO CAMPI RECORD 

II Si$="DATA ULTIMO AGG. 

13 S2$=“F INI TO SPAZIO ASSEGNATO" 

15 SP$="":F0RK=1T079:SP$=SPS*" ":NEXTK 
17 CH$=CHR$<13) :LIM$=CHR$<99)+CHR$<99)+CHR$<99) 
19 DIMDS(NC):DIMYS(NC): DIML(NC> 

21 DATA"COGNOME:",“NOME :","INDIR. :" 

23 DATA"CITTA' :","PROV. :","TELEF. 

25 DATA”L.NASC. : "D.NASC.:","T.STUD.:" 

27 DATA”OCC.AT.:","OCC.PR.:","ST.CIV.:" 

29 DATA"NOTA 1 :","NOTA 2 

31 DATA20,15,30,25,11,10,26,8,20,26,20,1,20,20 

33 F0RK=1T0NC:READD$<K) NEXTK 

35 F0RK=1T0NC:READL(K):NEXTK 

37 REM PRESENTAZIONE MENU' E SCELTE 

39 REM WHHHHHHHHH H HHHHHHHHHHHHHHHHt 

41 0PEN15,8,15 

43 PRINT“ L1'L‘) '* : TAB< 10) : "GESTIONE ARCHIU10" : PRINT 
45 PRINTTAB<10)"1=INIZIO EX-NOUO" 

47 PRINTTAB<10)"2=AGGIORNAMENTO" 

49 PRINTTAB<10)"3=LISTA PRINCIPALE" 

51 PRINTTAB<10)"4-CREAZ.IND.SEC." 

53 PRINTTAB<10)"5=LISTA SECONDARIA" 

55 PRINTTAB<10)"9=FIHE" 

57 IHPUT“COSA SCEGLI ";X 

59 IFX<10RX>5ANDXO9THENPRINT"0"; :GOT057 
61 PRINT:G0SUB225 

63 R$=“":PRINTTABI10)"MONTA DISCO DATI" 

65 GETRS:IFRS=""THEN65 
67 IFX=1THEN77 
69 PRINTH15,"I" 

71 G0SUB185 N=K:PRINT"PRESENTI K;" RECORD" 

73 PRINTS1S; GIS; M1S; "V";Ai$ 

75 IFX02THEN83 

77 REM INIZIO EX-NOUO ARCHIVIO 
79 REM WKKKKIOOtWIOOCKK - IC N W MMM W KW 
81 PRINT" QUANTI RECORD : INPUT N 

83 DIMC$<N),TX<N),SZ<N) 

85 IFXO1THENGOSUB201 
87 IFX=9THEN507 
89 0NXG0T0251,303,435,467,489 
91 STOP 

93 REM INGRESSO DATI 
95 REM mocwKK i tWMKwmt 
97 PRINT"LjINGRESSO DATI" 

99 F0RJ=1T0NC:Y$< J) = ■"': NEXTJ 

101 PRINT"PER USCIRE $ PER COGNOME"; 

103 PRINT"USE MANCANO DATIPREMI SOLO RETURN” 

105 PRINTD$<1>;:INPUTY$<1) 



107 IFY$<l)="$"THENW=i : RETURN 

109 F0RJ=2T0NC:PRINTD$<J>;:INPUTV$<J>:HEXTJ 

111 REM SISTEMA LUNGHEZZA DATI 

113 REM mmiiiimmkmmmiimwwmmmmmwmk 

115 FORJ = 1T0NC:Y$<J >=LEFT$<Y$(J>+SP$,L( J) ) 

117 NEXTJ-G0SUB379:RETURN 

119 REM SCRITTURA INDICE PRINCIPALE 

121 REM IHHHHH H HHHHHHHHHHHHHHHHHHHHt 

123 PRINTM15,"S0:INDI1":PRINTH15,"I" 

125 OPEN10,8,10 j “INOII, S, U“ : G0SUB213 
127 FORJ=lTOK 

129 PRINTM10,CSC J); CHS;TX(J);CH$;SX(J>;CH$; 

131 G0SUB213:NEXTJ 

133 CL0SE1B: RETURN 

135 REM SCRITTURA NEL BUFFER 

137 REM WHHHHHHHHHHHHHHHHHW 

139 FORJ=lTONC:Y$<J>=LEFT$<YS<J>+SP$,L<J>> 

Ì4i PRIHTiUi,YS<j>;CHS;GÙSUB213 

143 NEXTJ:RETURN 

145 REM ALLOCA TRACCIA E SETTORE 

147 REM « M M M « WHHHHHW1HHHHHHBHHW 

149 PRINT#15,"B-A"0;T;S 

151 INPUTH15,ENjEMS,ET,ES 

153 IFEN^BTHENRETURN 

155 IFEN065THEN221 

157 IFET=18THENT=19 :S=0:G0T0149 

159 T=ET:S=ES G0T0149 

161 REM PUNTATORE NEL BUFFER 

163 REM « «mommi k mm «« - ««««mm 

165 PRI NTttlS., "B-P : "Ili 2 : G0SUB213 : RETURN 

167 REM SCRITTURA RECORD 

169 REM mummmmmmminm 

171 PRINTH15,"U2:"11;0;T;S:G0SUBZ13: RETURN 
173 REM LETTURA RECORD 
175 REM « mmmunmmmim 

177 PRINTW15,"I":0PEN11,8,11,"«":G0SUB213 

179 PRINTM15,"U1:"11;0;T;S:G0SUB213:G0SUB165 

181 F0RJ=1T0NC:INPUTW11,Y$( J> G0SUB213 

183 NEXTJ:CL0SE11:RETURN 

185 REM LETT. DATI DISCO 

187 REM HKKKKIDIIimiKMIHdH I 

189 0PEN11,8,11,"H":GOSUB213 

191 PRINTH15,"Ui:"11;0;1;0 :G0SUB213 

193 G0SUB161:INPUTNil,R$,K,T,S:G0SUB213 

195 G1S = LEFTS<RS,2):Mi$=MIDS<R$,3,2> 

197 A1S=RIGHTS(RS,2):CL0SE11 

199 TT=T:SS=S:RETURN 

201 REM LETT. INDICE 

203 REM «mommi un mm 

205 OPEN10,8,i0,"INDIi,S,R":GOSUB213 

207 FORJ=lTOK 

209 INPUT»10,CS(J),TX<J>,SX(J>:G0SUB213 
211 NEXT J:CLOSE10: RETURN 
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213 REM ROUTINE ERRORE 
215 RE;M mtmtMXMMXKmno» 

217 INPUT#15,EN,EM$,ET,ES 
219 IFEN=0THENRETURN 
221 PRINT"UERRORE DISCO" 

223 PRINTEN,EMS,ET,ES:CL0SE15: STOP 
225 REM DATA DISCO 
227 REM ihhhhhhhh»» 

229 PRINT”DATA PER DISCO" 

231 INPUT" GG, MM, AA|||||||||||";GS,MS,AS: RETURN 
233 REM SCRITT. IND. SEC. 

235 REM ... 

237 PRINTM15,"S:INDI2":PRINTW15,"I" 

239 OPEN10,8,10,"INDI2,S,U“ 

241 F0RJ=1T0K 

243 PRINT**10,C$<J>;CH$;TX(J>;CH$;SX<J);CH$; 

245 G0SUB213:NEXTJ:CLOSE10: RETURN 
247 GETRS:IFR$=""THEN247 
249 RETURN 

251 REM INIZIALIZZAZIONE DISCO 

253 REM tHHHHHHHHHHHHHHHHHHHHHt 

255 PRINT"NOME DISCO"; :INPUTNS:T = 1:S = 0 

257 REM DATI DISCO SETTORE 1,0 

259 REM M XX MM WHHHHHHHHHt K KM MMM 

261 PRINTUÌ5,"N0:“*N$+",99" 

263 CL0SEi5:0PEN15,8,15:PRINT#i5,"I" 

265 REM DATA AGG. E NUM. RECORD 

267 REM ««»«»»«mmmmmm»ihhhwww 

269 OPEN11,8,11,"M":G0SUB213:G0SUB149:G0SUB165 

271 K=0 

273 PRINT*#ll,G$MSA$CHS;K;CHS;i;CHS;i;CH$; 

275 REM PRIMO SETTORE DATI 1,1 
277 REM MHKKMMMMMMMMMMMKKMMMMK 
279 G0SUB213 

281 PRINTH15,"U2:"11;0;T;S:G0SUB213 
283 K=1:M=0:T=1:S=1 
285 G0SUB93 

287 IFM=1THENK=K-1 CL0SE11:GOTO507 
289 G0SUB145:G0SUB161:G0SUB135 
291 REM AGGIORNAMENTO INDICE 
293 REM x»»»»»»»»»»»»»»»»»» 

295 C$(K)=Y$<1>+V$<2>:TX(K)=T .SX(K)=S 
297 G0SUB167:K=K*1 

299 IFK>NTHENK=K-i:PRINTS2S:CL0SE11:GOTO507 

301 G0T0285 

383 REM AGGIORNAMENTO 

305 REM xxxxxxxxxxxxx 

307 PRINTTAB< 10 ); " LIOU AGGIORNAMENTO ARCHIVIO” 

309 PRINT:PRINTTAB<10);"SCORREZIONE" 

311 PRINTTAB(10);"2=AGGI UNTA ELEM." 

313 PRINTTAB<10);"3=CANCELL.ELEM." 

315 PRINTTAB(10);"9=FINE" 

317 INPUT"COSA SCEGLI ";X :IFX=9THEN507 




319 IFX<10RX>3THEN38? 

321 IFX=2THEN481 
323 IFX=3THEN417 
325 G0T0359 

327 REM RICERCA RECORD 
329 REM WHHHHHHHHHHHW 

331 PR INT"L/‘; D$(i); : Y$<1>="": INPUTY$<1> :M=0 

333 IFV$<i>=”5"THENH=i: RETURN 

335 PRINTD$<2);:YS<2>="":INPUTY$<2> 

337 V$<i)=LEFT$<Y$<l>*SP$,L<i>> 

339 V$<2>=LEFT$<Y$<2)+SP$,L<2>> 

341 INPUT"QUALE OCCORRENZA ";X 
343 IFXC=0THENPRINT"n”;:G0T0341 
345 F0RJ=1T0K:IFC$<J)=Y$<i)+Y$<2>THEN353 
347 NEXTJ 

349 J=J-1:PRINT ,, N0N TROVATO ";Y$<1);" ";Y$<2> 

351 G0SUB247:G0T0327 

353 IFX01THENX=X-1 G0T0347 

355 T=TX<J):S=SX<J> 

357 I=J:J=K:NEXTJ:RETURN 
359 REM CORREZIONE 
361 REM IHHHHHHHHHl 
363 G0SUB327:IFH=1THEN387 
365 G0SUB173 

367 REM UA A MODIFICA DATI 
369 REM wmmummumt w w K i twi n t 
371 G0SUB379 

373 PRINTtti5,"I":0PEN11,8,11, "N":G0SUB161:GOSUBl 
35 

375 C$<I>=Y$<i>+Y$<2>:TX<I>=T:SX(I>=S 
377 G0SUB167:CL0SE11:G0T0325 
379 REM CONTROLLO DATI E MODIFICHE 
381 REM mtìtwwKmiiomMMmmwMMMKmmw i i 
383 PRINT"tiCONTROLLO DATI E MODIFICHE" 

385 FORJ=1T0NC:PRINTJ;" ";DS<J>;" V$<J>:NEXTJ 

387 INPUT"l£]TUTTO BENE SXN XS : IFX$=”S"THENRETUR 
N 

389 PRINT“QUALE CAMPO (8 USCITA)"; INPUTX 
391 IFX=8THENRETURN 
393 IFX>NCORX<iTHENPRINT"[ir :G0T0387 
395 Y$<X)="" 

397 INPUTYS(X):YS<X)=LEFTS<YS<X)+SPS,LCX)) 

399 G0T0383 

481 REM AGGIUNTA 

483 REM mtHmu t mt 

485 0PENii,8,ll,"t»":G0SUB213 

487 PRINT"LAGGIUNTA NUOVI RECORD" 

489 PRINT"PRESENTI ";K;" RECORD" 

411 PRINT"PUOI AGGIUNGERE ";N-K;" RECORD" 

413 G0SUB247 

415 T=TT:S=SS:M=8:K=K+1:G0T0285 
417 REM CANCELLAZIONE 
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419 REM IHHHHHHHHHHHHI 
421 M=0 

423 G0SUB327:IFM=1THEN431 

425 X=L<1)+L(2>:C$<I>=LEFT$<LIM$+SP$+SP$,X> 

427 M=M+1 

429 PRINTH15,"B-F:"8;T;S:G0SUB213:60T0423 

431 REM SIST. INDICE 

432 REM WBHHHHHHHHW 

433 G0SUB533:K=K-M:G0T0517 
435 REM LISTA FILE 

437 REM KMKKMKXKKM 

439 T$="LISTA PER INDICE PRIM." 

441 PRINT"ACCENDI STAMPANTE PREMI UN TASTO" 

443 GETRS: IFR$=""THEN443 
445 PRINT"Li";TS:0PEN4, 4 
447 PRINTM4:PRINTH4:PRINTM4,T$ 

449 FORJ=iTO10:PRINT#4:NEXTJ 

451 L=2:F0RI=1T0X:T=TX<I):S=SX<I>:G0SUB173 

453 PRINTH4,Y$<1);" ";Y$<2> 

455 PRINTH4,Y$<3>;“ ";Y$<4>;” ";Y$<5> 

457 F0RM=6T0NC:PRINTH4,DS(M);V$(M>:NEXTM 

459 PRINTM4:PRINTM4 

461 IFL=5THENPRINTM4:L=0 

463 L=L+1:NEXTI 

465 CL0SE4:G0T0527 

467 REM CREAZIONE INDICE SECONDARIO 

469 REM «mi.. 

471 PRINT-LINDICE SECONDARIO" 

473 INPUT"UQUALE CAMPO ";X$ 

475 X=UAL<X$>: IFX<20RX>NCTHENG0T0473 
477 G0SUB119 

479 FORI=iTOK:T=TX<I>:S=SX<I) G0SUB173 

480 IFLEN(V$<X>)=0THENV$<X)=CHR$(166> 

481 C$<I>=VS<X> NEXTI 
483 G0SUB233:GOSUB201 

485 PRI NT'"F INITO IND . SEC." 

487 G0T0527 

489 REM LISTA PER INDICE SECONDARIO 
491 REM »»»«««««««»«»»»»»»»»»»»»««« 

493 PRINT"ULISTA IND. SEC." 

495 OPEN10,8.10 f “INDI2,S,R":GOSUB213 
497 FORJ=lTOK:INPUTH10,C$<J>,TX<J>,SZ<J> 

499 G0SUB213:NEXTJ 

501 CL0SE18:G0SUB561:G0SUB233 

503 TS="LISTA IND. SEC. " 

505 G0T0441 
507 REM CHIUSURA 
509 REM »«»»»««« 

511 PRINT"CHIUSURA ARCHIUIO" 

513 PRINT“IND. PRINC. DA ORDIN. S/N ":INPUTR$ 
515 IFR$="S"THENG0SUB533 
517 GOSUB119 : OPEN11,8, il, "*t" : G0SUB213 
519 PRINTH15,"B-P:"11,2 
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521 PRINTttii,GSMSASCHS; K; CHS ;T; CHS ;S; CHS ; 
523 G0SUB213 

525 PRIHTHi5,"U2:"li;0;l;0:GOSUB213:CLOSEli 
527 PRIMT"FINITO AGGIORNAMENTO" 

529 PRINT"SONO PRESENTI ";K;” RECORD" 

531 CLOSE15: STOP 

533 REM ORDINAMENTO CRESCENTE 

535 REM IHHHHHHHHHHHHHHHHHHHHl 

537 L = K-1 

539 M=0 

541 FORJ=lTOL 

543 IFCS<J)OCS<J+i>THEN553 
545 RS=CS(J):C$(J)=CS<J+1):C$<J+i>=RS 
547 X=TX<J>:TZ<J>=TX<J+1> TX<J+1>=X 
549 X=SX<J>:SX<J>=SX<J+1):SX<J+1>=X 
551 W=1 
553 NEXTJ 

555 IFM=0THENRETURN 

557 IFL=1THENRETURN 

559 L=L-1:G0T0539 

561 REM ORDINAMENTO DECRESCENTE 

563 REM WHHBHHHHHHHHHHHHHHHHHHt 

565 L = K-1 

567 M=0 

569 FORJ=iTOL 

571 IFCS< J)>=CS(J + i> THEN581 

573 RS=CS<J):CS<J)=CS<J+l):CS<J*1>=R$ 

575 X=TX(J):TX(J>=TXCJ+1):TX<J+1)=X 
577 X=SXCJ):SX<J)=SX<J+1):SX<J+1>=X 
579 M=1 
581 NEXTJ 

583 IFH=0THENRETURN 
585 IFL=1THENRETURN 
587 L=L-1:G0T0567 


ELENCO VARIABILI 

•NC, numero campi del record logico, 14 per noi. 

,S1$,S2$,T$, stringhe descrittive. 

.SP$, 79 spazi, tale stringa deve contenere un numero di spazi 
pari al campo piu' lungo del record, infatti serve per aggiun-j 
gere spazi ai campi piu' corti o vuoti. Noi abbiamo usato 79, per 
la compatibilita' con altri calcolatori COMMODORE, ma potrebbe 
essere anche 88. 

•CH$, CHR$(13), per separare i campi con RETURN. 

•LIM$, tre caratteri CHR$(99), serve per il campo chiave dei 
record cancellati. 
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.D$(NC), descrizioni dei campi del record, da prelevare dalle 
frasi DATA presenti nelle linee da 21 a 29. 

.Y$(NC), campi dati. 

•L(NC), lunghezze dei campi dati, da prelevare dalla linea DATA 
31. 

.K,J,L, variabili di controllo. 

.X,R$,X$, variabili per risposte. 

•N, numero record. 

.Gl$,M1$,Al $, data precedente. 

.G$,M$,A$, data aggiornamento. 

.C$(N), chiavi dell'indice. 

: T% ( N ), S5É (N ), tracce e settori dell'indice. 

.W, switch per lettura dati, 1 se finiti i dati. 

•T,S, traccia e settore. 

•EN,EM$,ET,ES, variabili per messaggio errore. 

.N$, nome disco e archivio. 

.TT,SS, indirizzo settore precedente. 

.M, numero record cancellati. 

Le modifiche per adattare il programma alle tue esigenze riguar¬ 
dano: 

.il numero dei campi NC, 

.le frasi DATA delle descrizioni e delle lunghezze dei campi. 

.la parte di programma che lista i record. 

Risulta piu' difficile modificare il fatto che l'indice e' sui 
primi due campi; puoi ovviare all'inconveniente dimensionando uno 
dei due campi a lunghezza 1 e lasciandolo vuoto. 

Le due routine di ordinamento risultano un po' lente; potrebbero 
essere sostituite con routine di ordinamento in linguaggio 
macchina. Esse lavorano sui 3 vettori che contengono l'indice, o 
principale o secondario. 

Il programma accetta record con i primi due campi uguali; in 
conseguenza nella ricerca chiede anche 1’occorrenza del record. 


COMMENTO A ARCHIRANDOM 


.1/35: definizione costanti e variabili. 

•37/91: presentazione menu' e scelte. 

.93/117: sottoprogramma ingresso dati e sistemazione lunghezza 
campi. 


.119/133: 
. 1 35/1 i43 : 
.145/159: 
.161/165: 
.167/171 : 
.173/183: 
.185/1 99: 
.201/211 : 
.213/223: 


sottoprogramma 

sottoprogramma 

sottoprogramma 

sottoprogramma 

sottoprogramma 

sottoprogramma 

sottoprogramma 

sottoprogramma 

sottoprogramma 


scrittura INDI1 su floppy, 
scrittura nel buffer, 
allocazione traccia e settore, 
posizionamento puntatore, 
scrittura settore sul floppy, 
lettura record, 
lettura dati generali disco, 
lettura INDI1 in memoria, 
routine errore disco. 
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.225/231 : sottoprogramma richiesta data aggiornamento. 

.233/249: sottoprogramma scrittura indice INDI2. 

.251/301 : fase 1 del menu', inizio ex-novo archivio e carica-™ 
mento record. 

.303/433: fase 2 del menu', aggiornamento: modifica, aggiunta e 
cancellazione. Quando si cancella un record viene liberato il 
settore occupato. 

.435/465: fase 3 del menu', lista archivio. 

.467/487: fase 4 del menu', creazione INDI2. 

.489/531: fase 5 del menu', lista per indice secondario. 

.533/559: sottoprogramma ordinamento crescente indice, con 
eliminazione dei record cancellati. 

.561/587: sottoprogramma ordinamento decrescente indice. 

ARCHIVIO RANDOM-USER 

Per organizzare un archivio di questo tipo e' necessario esegui- 
re preventivamente un programma che impegni su disco il numero di 
settori che servono per il file random, creando un file sequen- 
ziale di record "dummy" (vuoti), al quale, per distinguerlo dagli 
altri, possiamo assegnare il tipo USR. Impegnando i settori in 
questo modo essi vengono concatenati sui primi 2 caratteri e il 
file di tipo USR viene registrato nella directory. Dobbiamo 
conservare gli indirizzi di traccia e settore utilizzati dal fi-, 
le USR, e, quando scriviamo i record del file random, dobbiamo 
andare a scrivere sugli stessi settori, senza eseguire il coman¬ 
do B-A di allocazione. In questo modo le nostre registrazioni non 
vengono danneggiate dai comandi COLLECT e VAL1DATE. 

Abbiamo voluto migliorare ulteriormente l'organizzazione del 
nostro programma, in modo che esso possa essere utilizzato per 
generare archivi di tipo diverso. Abbiamo stabilito di mantenere 
la lunghezza del record logico al massimo a 254 caratteri, 
utilizzando un settore per ogni record logico. Inoltre abbiamo 
mantenuto le caratteristiche funzionali del programma 
ARCHIRANDOM. 

Per realizzare questo archivio dobbiamo: 

.preparare un programma, di nome STRUTTFILE, che mediante un 
colloquio video/tastiera, ci consente di definire la struttura 
del record logico dell'archivio, fissando il numero dei campi, il 
loro nome e la loro lunghezza, il nome del disco e dell'ar¬ 
chivio, la data iniziale. STRUTTFILE controlla che la lunghezza 
dei campi non superi 254. Le caratteristiche definite per 
l'archivio vengono scritte su un file di tipo sequenziale di no¬ 
me STRUTTURA; questo file viene letto dal programma di gestione 
dell'archivio all'inizio dell'elaborazione e gli fornisce le 
costanti, che per ARCHIRANDOM sono incorporate nel programma 
stesso. 
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.preparare un programma, di nome INIZIOFILE, che, ricavando le 
informazioni necessarie dal file STRUTTURA, crea sul floppy un 
file sequenziale di tipo USR, riservando tutti i settori che ser-> 
vono per il file random, e inoltre crea a priori il file sequen-> 
ziale INDI1 , lasciando vuote le chiavi, ma scrivendo gli indi-! 
rizzi di traccia e settore utilizzati. 

.preparare un programma, di nome ARANDOMUSER, che gestisce il 
file random, utilizzando il file STRUTTURA e il file INDI!. 


1 REM STRUTTFILE 
3 REM * * * * ** * *** 

5 Si$="LA SOMMA DELLE LUNGHEZZE SUPERA 254" 
7 S2$="M0DIFICA QUALCHE CAMPO" 

9 PRINT"LDEFINIZIONE STRUTTURA RECORDl!)" 
il REM CHIEDE NUMERO CAMPI MINORE DI 20 
13 REM MKWKKKKICMMKXKMHKMMltKWWKM M - **** X K K 
15 INPUT"NOME FILE: ";N$ 

17 INPUT"QUANTI CAMPI: ";NC 
19 IFNCC20RN020THEN9 
21 PRINT"LjNOMI E LUNGHEZZE CAMPI" 

23 PRINT"OGNI CAMPO MINORE DI 80 CARATT." 

25 PRINT”0GNI NOME MASSIMO 10 CARATTERI" 

27 DIMDSINC), L<NC) 

29 F0RK=1TONC 

31 PRINTK;"NOME ; "; :INPUTDS(K) 

33 INPUT-LUNGHEZZA: ”;L<K> 

35 NEXTK 

37 PRINT"LiCONTR0LL0 CAMPI" 

39 F0RK=1T0NC 

41 IFLEN<DS<K))>10THEND$<K)=LEFT$<D$CK>,10> 
43 IFL<K)>79THENL<K>=79 
45 PRINTK;D$<K);" ";L<K> 

47 NEXTK 

49 PRINT"lUCONFERMI S/N "j:INPUTR$ 

51 IFRS="S"THEN61 
53 INPUT"QUALE CAMPO: ";X 
55 IFX<0ORX>NCTHEN53 
57 INPUT"CAMPO: ";D$<X> 

59 INPUT"LUNGHEZZA: ";L<X):G0T037 
61 REM CALCOLA LUNGHEZZA RECORD 
63 REM KMWMMMKWMMMMKWWKWMWKKKWK 
65 S=NC:F0RK=1T0NC 
67 S=S+L<K):NEXTK 

69 IFS>254THENPRINTSi$:PRINTS2S:G0T039 
71 PRINT"NOME FILE: ";N$ 

73 PRINT"LUNGHEZZA RECORD: ";S 

75 CL0SE15 : 0PEN15, 8,15, "1 11 

76 PRINTN15,"S:STRUTTURA" 

77 0PEN2,8,2,"STRUTTURA,S,M" 

79 PRINT«2,NS 

81 PRINTH2,NC 


189 



83 F0RK=1T0NC:PRINT#2,D$<K> NEXTK 
85 F0RK=1T0NC:PRINTH2,L<K>:NEXTK 
87 CL0SE2 

83 PRIHT ,, LVERIFIC8" 

91 0PEN2,8,2,“STRUTTURA,S,R” 

93 INPUTM2,A$ 

95 PRINT"N0ME FILE: ";A$ 

97 INPUTM2,X 

99 PRINT"NUMER0 CAMPI : "X 
IBI F0RK=1T0X: INPUTM2,D$<K>:NEXTK 
1B3 FORK=iTOX:INPUTM2,L(K>:NEXTK 
105 CL0SE2:CL0SE15 

107 F0RK=1T0X:PRINTK;OS<K);L<K>:NEXTK 
109 STOP 

COMMENTO A STRUTTFILE 

.15: chiede il nome del file random e lo pone in N$. 

.17: chiede il numero NC dei campi e controlla che sia compreso 
tra 3 e 20. Abbiamo imposto il minimo 2, dato che per il nostro 
file la chiave di ordinamento lavora sui primi 2 campi. Il limi¬ 
te superiore 20 ci consente di vedere in un solo quadro video i 
campi. 

.21/35: chiede il nome e la lunghezza dei campi, con la limita¬ 
zione che il nome non superi 10 caratteri e la lunghezza 79 
caratteri (sempre per la compatibilita' con altri modelli). 

.37/47: controlla i dati e li aggiusta ai limiti se neces¬ 
sario. 

.49/59: chiede conferma dei dati e consente di correggerli. 
.61/69: controlla la lunghezza del record, aggiungendo alla 
lunghezza di ogni campo 1 per il CHR$(13) di fine campo. Se non 
risulta <=254 chiede di modificare la struttura del record. 

.71/87: scrive il file STRUTTURA sul dischetto del programma, 
dopo aver cancellato, se esiste, un precedente file. 

.89/109: rilegge il file STRUTTURA per verificare i dati e li 
ripropone sul video. 


I REM INIZIOFILE 
3 REM MMmmmmmt 

5 REM DIMENSIONA COSTANTI E UARIABILI 
7 REM LEGGE FILE STRUTTURA 
9 REM KMKWMWWWWMKWMKKWM - W - m t- KWKWMMMWICKW 

II CH$=CHR$(13) 

13 S1S=" • , :F0RK=1T039:S1S=S1$+" ":NEXTK 
15 S2S=" 

17 0PEN15,8,15,"I" 

19 0PEN2.8,2,"STRUTTURA,S,R":G0SUB229 
21 INPUT442, NS, NC : G0SUB229 
23 NS=LEFTS<N$+SiS,i6> 
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25 PRINT"DATI FILE STRUTTURA” 

2? PRINT”FILE. ";N$;" NUMERO CAMPI: ";NC 
29 INPUT”QUANTI RECORD: ”;N 
31 IFN>180THEN STOP 
33 NX$=STR$<N> 

35 NX$=RIGHT$<S2$+NX$,6> 

37 DIMDSINC) ,L<NC),V$(NC> 

39 FORK=iTONC:INPUTN2,D$<K):NEXTK 
41 FORK=lTONC-INPUTN2,L<K>:NEXTK 
43 CL0SE2 

45 FORK=iTONC:PRINTD$<K>;“ ”;L(K>:NEXTK 
47 SR=NC:FORK=iTONC:SR=SR+L<K>:NEXTK 
49 PRINT”LUNGHEZZA RECORD: ”;SR 

51 IFSR>254THENPRINT”N0N POSSO PROSEGUIRE”: STOP 

53 REM CAMPI DATI CON CHR$<99> + SPAZI 

55 REM iHHHHH H HH H HHHHHHHHHHHHHHHHHHHHHt 

57 FORK=iTONC:Y$<K>=CHR$<99>:IFL(K>=iTHENG3 

59 F0RJ=1T0L<K>-1 

61 Y$<K>=Y$<K>+CHR$<32>:NEXTJ 

63 NEXTK 

65 IFSR=254THEN77 

67 REM CREA CAMPO FINALE SE SRC254 
69 REM WHHHH H HHHHHHHHHHHHt«HHHHHHHt 
71 IFSR=253THENDN$="”:G0T077 
73 DN$=CHR$<99>:F0RK=iT0253-SR-i 
75 DN$=DN$+CHR$<32):NEXTK 
77 REM CREA FILE USER 
79 REM mtmtKimttitmmmi 
81 PRINT-MONTA DIStO DATI" 

83 PRINT"PREMI UN TASTO PER PROSEGUIRE” 

85 R$="”:GETRS:IFR$=""THEN85 
87 PRINT”PAZIENZA, ATTENDI, STO PREPARANDO” 

89 PRINT"IL DISCO DATI" 

91 CL0SE15:0PEN15,8,15,"N0:"*NS+",99" 

93 REM RIEMPIE RECORD 

95 REM CON CAMPI CHE INIZIANO CON CHR$<99> 

97 REM KKmmKKwmtKMMitmiKKKMKKmmmHummtwmc 

99 0PEN2,8,2,NS+",U,H":G0SUB229 

101 REM SCRIUE PRIMO RECORD PER DATI DISCO 

103 REM OCCUPANDO UN INTERO SETTORE 

105 REM XKK*K*MMM1IMllM1tUM* m *KKKMKKKU 

107 PRIHTN2,N$CH$"GGMMAA"CM$NX$CH$"0"CH$" "CHS" 

"CHS; 

109 G0SUB229 

111 PRINTM2,S1SCHSS1SCHSS1SCHSS1SCHSS1SCHSS2S 

113 G0SUB229 

115 FORK=lTON 

117 FORJ=lTONC 

119 PRINTN2,Y$<J>;CH$; 

121 G0SUB229 
123 NEXTJ 

125 IFSR<254THENPRINTN2,DNS 
127 NEXTK 
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129 CL0SE2 

131 REM CREA FILE INDICE 

133 REM INDIRIZZO PRIMO SETTORE DIRECTORV 
135 REM WHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHt 
137 CL0SE15:0PEN15,8,15,"I" 

139 0PEN2,8,2,"#":G0SUB229 

141 REM LEGGE SETTORE 18,1 

143 REM KMKKKWKKKMKKWMMKWK 

145 PRINTM15,"01:2,8,18,1” G0SUB229 

147 REM PUNTATORE A TRACCIA E SETTORE 

149 REM MMimiiMMiiKMimKiimmmutwmKimi H f k 

151 PRINTM15,"B-P: 2,3":G0SUB229 

153 TS="'" : SS="" : GETM2, T$, S$ 

155 T$=T$+CHR$<8>:S$=S$+CHR$<0> 

157 CL0SE2 

159 T=ASC<T$>:S=ASC(SS) 

161 PRINT"PRIMO BLOCCO'* 

163 PRINT"TRACCIA: ";T;" SETTORE: ";S 
165 PRINT M PREMI UN TASTO PER PROSEGUIRE" 

167 R$="":GETR$: IFRS="“THEN167 
169 REM GENERA INDICE 

171 REM LEGGENDO FILE USR COME RANDOM 
173 REM WHHHHHHBHHH H HHHHHHHHHH H HHHH» 

175 CL0SE15:0PEN15,8,15,"I" 

177 OPEN2,8,2,“W*:G0SUB229 

179 0PEN3,8,3,*'INDI1,S,M":G0SUB229 

181 REM SCRIUE PRIMO RECORD INDIi 

183 REM WHHHHHHHHHHHHHHHHHHHHHHHt 

185 PRINTM3,VS(1)*VS<2>; CHS;T; CHS,S :G0SUB229 

187 REM SCRIUE ALTRI N RECORD 

189 REM « ««« « I H H H tmi X W X «« 

191 F0RK=1T0N 

193 PRINTW15,"U1: 2,8";T;S:G0SUB229 
195 PRINTH15, "B-P - 2,0" : G0SUB229 
197 GETH2,T$,SS :G0SUB229 
199 T=ASC(T$+CHR$<0>>:S=ASC<S$+CHR$<0>> 

201 PRINTT,S 

203 PRINTH3,Y$<l>+V$<2>;CHS;T;CHS;S:G0SUB229 

205 NEXTK:CL0SE2:CL0SE3 

207 REM FILE STRUTTURA SU DISCO DATI 

209 REM xxxxxxxxxxx - xx x- xxxxxxxxxxxxxx 

211 0PEN2,8,2,"STRUTTURA,S,M":G0SUB229 

213 PRINTH2,NS:G0SUB229 

215 PRINTM2,NC:G0SUB229 

217 F0RK=1T0NC:PRINTM2,D$(K>:G0SUB229:NEXTK 
219 F0RK=1T0NC:PRINT«2,L<K):G0SUB229:NEXTK 
221 CL0SE2 

223 PRINT"IL DISCO DATI E ' PRONTO" 

225 CL0SE15 

227 0PEN15,8,15,"U":CL0SE15: STOP 
229 REM ROUTINE ERRORE 

231 REM .. 

233 INPUT815,EN,EMS,ET,ES 
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235 IFEN=8THENRETURN 

237 PRINT"ERRORE DISCO”:PRINTEN,EM$,ET,ES 
239 STOP 


COMMENTO A INIZIOFILE 

.1/51: definisce costanti e variabili, legge il file STRUTTURA 
dal disco dei programmi, chiede il numero N dei record e control¬ 
la che non superi 100 (linea 31, potrai eventualmente modificare 
tale numero). Controlla che la somma delle lunghezze dei campi 
non superi 25^ e se va bene prosegue. 

.53/75: prepara ì campi dummy con primo carattere CHR$(99). 

.77/91: chiede di montare il disco dati e lo formatta. 

.93/129: apre il file sequenziale di tipo USR, scrive i dati 
generali del disco sul primo settore e poi tutti i settori neces¬ 
sari per gli N record, chiude il file. 

.131/167: per poter creare il file INDI1 va a leggere dalla 
directory l'indirizzo del primo blocco del file USR generato. 

.169/227: crea il file IND11, con chiavi dummy e gli indirizzi 
di traccia e settore, che ricava dai primi due byte di concate¬ 
namento dei settori del file sequenziale creato. Scrive sul disco 
dei dati il file STRUTTURA. Alla fine esegue il comando VALIDATE 
per essere sicuro della corrispondenza della BAM alla situazione 
creata. Il primo record di INDI1 contiene l'indirizzo del set¬ 
tore del disco usàto per le informazioni generali sull'ar¬ 
chivio. 

.229/239: routine errore disco. 

Questo programma, a parte la sua utilità' per realizzare il 
nostro archivio, e' molto interessante per imparare a maneggiare 
bene le registrazioni che si trovano sul floppy. 

Se chiedi la lista della directory del floppy, vedrai registrati 
3 file, quello di tipo USR con il nome che gli hai assegnato, 
INDI1 e STRUTTURA. 


i REM ARANDOMUSER 
3 REM MHHHHHHHHHI 

5 REM DEFINIZIONE COSTANTI E UARIABILI 
7 REM MWWWMWKKKWKKKMKKMMHMMKKXMKKKWMKW 
9 S1S=”DATA ULTIMO AGG. 

11 S2$="FINIT0 SPAZIO ASSEGNATO” 

13 SP$=”" :F0RK=iT079:SPS=SPS*" ** : NEXTK 
15 CHS=CHRS<13>:LIMS=CHRS<99)+CHRS<32)+CHRS<32> 
17 REM LEGGE DATI DA FILE STRUTTURA 
19 REM WI H tMXKKWKMKKMKMWKMMHKKWWMKWK 
21 PRINT” Uflfl "TAB<8V'MOHTA DISCO DATI” 

23 G0SUB257 
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25 0PEN15,8,15,"I" 

27 0PEN2,8,2,"STRUTTURA,S,R”:G0SUB219 
29 INPUTH2,N$,NC:G0SUB219 
31 DIMDStNC) DIMY$<NC>:DIML<NC> 

33 F0RK=1T0NC:INPUTN2,D$<K>:NEXTK 
35 F0RK=1T0NC:INPUTtt2,L<K>:NEXTK 
37 CL0SE2 

45 REM LEGGE DATI DISCO 
47 REM whhh h hhhhhhhhhh» 

49 OPEN1B,8,10,"INDI1,S,R":G0SUB219 
51 REM SETTORE DATI GENERALI 
53 REM HKWK K - W KMKKMKKHMMKMKKM 
55 INPUTW10,A$,TD,SD 
57 G0SUB187 

59 REM DIMENSIONAMENTI PER INDICE 
61 REM «HHHHHHHHHHHHHHHHHHHHHHHHHt 
63 DIMC$<N),TX<N),S/'(N) 

65 REM LETTURA INDICE 

67 REM W H HH H HHBHHHHW 

69 G0SUB213:G0SUB231 

71 REM PRESENTAZIONE MENU' E SCELTE 

73 REM «HHHHHHHHHHHHHHHHHHHHHHHHHHHt 

75 PRINT"L1?I.0":TAB<1B> : “GESTIONE ARCHIVIO" : PRINT 

77 PRINTTAB(10)“1=AGGI ORNAMENTO" 

79 PRINTTAB(10)“2=LISTA PRINCIPALE" 

81 PRINTTAB<10)"3=CREAZ.IND.SEC." 

83 PRINTTAB<10)“4=LISTA SECONDARIA" 

85 PRINTTAB<18)"9=FINE“ 

87 INPUT-COSA SCEGLI ";X 

89 IFXC10RX>4ANDXO9THENPRINT"D"; :G0T087 
91 PRINT;PRINT"PRESENTI ";K;" RECORD" 

93 PRINTS1S;GÌ$;"/";M1S;*V";A1$ 

95 G0SUB257 
97 IFX=9THEN497 
99 0NXG0T0295,427,459,479 
101 STOP 

103 REM INGRESSO DATI 
105 REM MimmtMMHMioiKW 
107 PRINT"L<INGRESSO DATI" 

109 FORJ=lTONC:Y$<J)="":NEXTJ 

111 PRINT"PER USCIRE $ PER COGNOME"; 

113 PRINT"||SE MANCANO DATIPREMI SOLO RETURN" 

115 PRINTDS<1>;:INPUTVS<1) 

117 IFY$<1)="$"THENW=1:RETURN 
119 F0RJ=2T0NC:PRINTDS<J>;:INPUTYS(J):NEXTJ 
121 REM SISTEMA LUNGHEZZA DATI 
123 REM kk**** * *kkxk*kkm*kk*k* 

125 FORJ=lTOHC:Y$<J)=LEFT$CY$CJ>+SPS,L<J>> 

127 NEXTJ:G0SUB371:RETURN 
129 REM SCRITTURA INDICE PRINCIPALE 
131 REM MKiimm i mwmmimimitKMMmmmtMM 
133 PRINT«15,"S0:INDI1":PRINTW15,"I" 

135 OPEN10,8,10,"INDI1,S,M":G0SUB219 
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137 PRINTttiO,LIMS;CH$;TD;CH$;SD;CHS; G0SUB219 
139 F0RJ=1T0N 

141 PRINTM10, C$<J);CH$;TX<J>;CHS;SXC J); CHS; 

143 G0SUB213:NEXTJ 

145 CLOSE10:RETURN 

147 REM SCRITTURA NEL BUFFER 

149 REM MHHHHHHHHHHHHHHHHBHI 

151 F0RJ=1T0NC:Y$<J)=LEFTS<V$<JI+SPS,L<J>> 

153 PRINTHii,Y$<J);CH$; G0SUB219 
155 NEXTJ.RETURN 

157 REM LETTURA SETTORE NEL BUFFER 

159 REM WHHHHHHHHHHHHHHHHHHHHHHHHt 

161 PRINTH15,"U1:11,8";T;S:60SUB219: RETURN 

163 REM PUNTATORE NEL BUFFER 

165 REM WKMXmtlOOD H OOOtltMWIH t- W 

167 PRINT«H5,"B-P:"Il; 2.G0SUB219: RETURN 

169 REM SCRITTURA RECORD 

171 REM »WHHHH( * IIKMMKMMH 

173 PRINTH15,“U2:"Il; 0;T;S:G0SUB219.RETURN 
175 REM LETTURA RECORD 
177 REM WHHHHHHHHHHHHt 

179 PRINTH15,"I":0PEN11,8,11,"il":G0SUB219 

181 PRINTM15,"U1:"11;0;T;S:GOSUB219:GOSUB163 

183 F0RJ=iTONC:INPUTHii,YS<J>:G0SUB219:NEXTJ 

185 NEXTJ:CL0SE11:RETURN 

187 REM LETT. DATI DISCO 

189 REM MMK i tm i m t- mmic - KMM ' M 

191 OPEN11,8,11,"tt":G0SUB219 

193 PRINTttiS, "U1 : "11; 8; TD; SD G0SUB2Ì9 

195 G0SUB163:INPUTHli,N$,R$,N,K:G0SUB219 

197 Gi$=LEFT$<R$,2>:M1S=MID$<R$,3,2> 

199 A1$=RIGHT$(R$,2):CL0SE11:RETURN 
201 REM LETT. INDICE 
203 REM mnmwMMmntmi 

205 CLOSE10:OPEN10,8,10,"INDI1,S,R":G0SUB219 

207 INPUTttlO,A$,TD,SD 

209 REM DA SECONDO RECORD 

211 REM MKMìmKMMMmOOtMUKM 

213 FORJ=1T0N 

215 INPUTM10,C$(J),TX<J),SX<J>:G0SUB219 

217 NEXTJ CLOSE10: RETURN 

219 REM ROUTINE ERRORE 

221 REM HKiimtKimmmmtK 

223 INPUTM15,EN,EM$,ET,ES 

225 IFEN=0THENRETURN 

227 PRINT"UERRORE DISCO" 

229 PRINTEN,EMS,ET,ES:CL0SE15: STOP 
231 REM DATA DISCO 
233 REM ********** 

235 PRINT"DATA PER DISCO" 

237 INPUT" GG,MM,AA|iaiiaillll";GS,M$,A$ : RETURN 
239 REM SCRITT. IND. SEC. 

241 REM WKWMMOU t- MMMMMOnOC 
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243 PRIHT«15,"S: I NO 12“ : PRI NTM15, "I M 
245 OPEN 18,8,10, ,, INDI2,S J M" 

247 FORJ=lTOK 

249 PRINT#10,C$<J>; CHS ;TX<J>; CHS;SX<J>; CHS; 

251 G0SUB219:NEXTJ:CLOSE10:RETURN 

253 REM ATTESA TASTO 

255 REM mm nume muntine 

257 RS = "" : GETRS : I FRS = ""THEN257 

259 RETURN 

261 REM RICERCA POSTO LIBERO 
263 REM mhhhhhhbh h h h hhhhhhui 
265 F0RI=1T0N 

267 IFLEFTSICSII),1 > OCHRS ( 99> THEN271 

269 T=TX(I>:S=SX<I):JJ=I:I=N 

271 NEXTI : RETURN 

273 REM AGGIUNTA NUOUI RECORD 

275 REM ... 

277 GOSUB103:GOSUB26i 
279 IFW=1THENK=K-1:CL0SE11:G0T0497 
281 G0SU815?:G0SUB163:G0SUB147 
283 REM AGGIORNAMENTO INDICE 
285 REM «HHHHHHHHHHHHHHHHHHHt 

007 r*/ i i \4U«-/o\ 

cu ■ w \ J j / — i y \ l / ■ l v \ «_ / 

289 G0SUB169 : K = K + 1 

291 IFK>NTHENK=K-i:PRINTS2S:CL0SE11:G0T0497 

293 G0T0277 

295 REM AGGIORNAMENTO 

297 REM wmummmiimtww 

299 PRIHTTAB< 10) : “U?1<1AGGIORNAMENTO ARCHIVIO" 
301 PRINT:PRINTTAB<10>;"SCORREZIONE” 

303 PRINTTAB<10); ,, 2=AGGIUNTA ELEM." 

305 PRINTTAB<10);"3=CANCELL.ELEM." 

307 PRINTTAB<10);"9=FINE" 

309 INPUT"COSA SCEGLI ”;X :IFX=9THEN497 

311 IFX<10RX>3THEN299 

313 IFX=2THEN393 

315 IFX=3THEN489 

317 G0T0351 

319 REM RICERCA RECORD 
321 REM *h***h***»*h*k 

323 PRINT’V;DSC1); :YS<1>="": INPUTYS<1>:M=0 

325 IFY$<i> = ,, $"THENW=i : RETURN 

327 PRINTDS<2>;:YS<2>="”:INPUTYSI2) 

329 YS<i)=LEFTS<Y$<i>-t-SPS,L<i>> 

331 Y$<2)=LEFTS<YS<2>*SP$,L<2>> 

333 INPUT"QUALE OCCORRENZA ";X 
335 IFX<=0THENPRINT"Q";:G0T0333 
337 F0RJ=1T0N:IFC$<J)=YS<i>+YS<2>THEN345 
339 NEXTJ 

341 J=J-i PRINT"N0N TROVATO ";YS<1>;" ";YS<2> 

343 G0SUB257:G0T0319 

345 IFX<>lTHENX=X-i G0T0339 

347 T = TX<J>:S=SX<J) 


196 



349 I=J:J=N.NEXTJ:RETURN 
351 REM CORREZIONE 
353 REM WKKKKKKWKK 
355 G0SUB319:IFH=1THEN299 
357 G0SUB175 

359 REM VA A MODIFICA DATI 
361 REM MHHHHHHHHHHHHHHHHt 
363 G0SUB371 

365 PRINTH15, "I" 0PEN11,8,11, "#". G0SUB163 : GOSUBl 
47 

367 CS<I»=V$<i)+V$<2> : TZ<I) = T :S/i<I>=S 
369 G0SUB169:CLOSE11:G0T0351 
371 REM CONTROLLO DATI E MODIFICHE 
373 REM IHHHHHHHHHHHHHHHHHHHHHHHHHt 
375 PRINT”LjCONT ROLLO DATI E MODIFICHE” 

377 FORJ=lTONC:PRINTJ;” ";D$<J>;" VS<J):NEXTJ 
379 INPUT'tilTUTTO BENE S/N X$ : IFX$="S"THENRETUR 
N 

381 PRINT"QUALE CAMPO <0 USCITA»";:INPUTX 
383 IFX=8THENRETURN 

385 IFX>NC0RXClTHENPRINT ,, m ,, :G0T0379 
387 V$<X>=”" 

389 INPUTV$<X>:Y$<X>=LEFTS<V$<X»+SP$,L<X>> 

391 G0T0375 

393 REM AGGIUNTA 

395 REM momm i mi 

397 OPEN11,8,11,"M":G0SUB219 

399 PRINT"LiAGGIUNT(l NUOUI RECORD” 

481 PRINT”PRESENTI ";K;" RECORD" 

403 PRINT"PUOI AGGIUNGERE ";N-K;" RECORD" 

485 GOSUB257 
407 H=0:K=K*1:GOTO277 
409 REM CANCELLAZIONE 
411 REM mm monili Mimmi 
413 M=0 

415 G0SUB319:IFH=1THEN423 

417 X=L<i)+L<2): C5< I)=LEFTS<LIMS+SPS+SPS,X) 

419 M=M+1 

421 G0T0415 

423 REM SIST. INDICE 

425 G0SUB523:K=K-M:GOTO507 


429 REM iohhhhhhuoi 

431 T$="LISTA PER INDICE PRIM.” 

433 PRINT"ACCENDI STAMPANTE PREMI UN TASTO" 

435 G0SUB257 

437 PRINT"L";T$:0PEN4,4 

439 PRINTM4:PRINTM4:PRINTM4,TS 

441 PRINTH4:PRINTM4 

443 F0RI=1T0K:T=TX<I):S=SX<I » :G0SUB175 
445 PRINTM4,VS<1>;" ";YS<2> 

447 IFNC=2THEH45i 

449 F0RM=3T0NC:PRINTM4,DS(M>": "Y$<M>:NEXTM 




451 PRINT4*4:PRINTt»4 
455 NEXTI 

457 CL0SE4:G0T0517 

459 REM CREAZIONE INDICE SECONDARIO 
461 REM IHH H HHHHHHHHHHHHHHHHHHHHHHHt 
463 PRINT"L,INDICE SECONDARIO" 

465 INPUT“[!]QUALE CAMPO ";X$ 

467 X=UAL<X$): IFX<2QRX>NCTHEN60T0465 

469 FORI=iTOK:T=TX<I):S=SX<I>:G0SUB175 

470 IFLEN(VS<X))=0THENV$<X>=CHRS<160> 

471 C$<I>=V$<X>:NEXTI:G0SUB551 
473 G0SUB239 

475 PRINT"FINITO IND. SEC." 

477 G0T0517 

479 REM LISTA PER INDICE SECONDARIO 
481 REM IHHHHHHHHHHHHHHHHHHHHHHHH H t* 

483 PRINT"LiLISTA IND. SEC." 

485 OPEN10,8 / 10,"INDI2,S J R":GOSUB219 
487 F0RJ=1T8K: INPUTttiO, CS ( J ) , V/.< J> . SX( J > 

489 G0SUB219:NEXTJ 
491 CLOSE10 

493 TS="LISTA IND. SEC. " 

495 GOT0433 

497 REM CHIUSURA 

499 REM M«HHHHHBt 

581 PRINT"CHIUSURA ARCHIUIO" 

503 PRINT"IND. PRINC. DA ORDIN. S/N ":INPUTR$ 

585 IFR$=”S"THENG0SUB523 

507 GOSUB129:OPENll,8,ii,"#":GOSUB2i9 

509 PRINTH15,"U1:"11;8;TD;SD :G0SUB219:G0SUB163 

511 PRINTM11NSCHSGSMSASCHS;N;CH$;K;CHS; 

513 G0SUB219 

515 PRINTH15,"U2:"11;0;TD;SD :G0SUB219:CL0SE11 
517 PRINT"FINITO AGGIORNAMENTO” 

519 PRINT-SOHO PRESENTI ";K;" RECORD" 

521 CL0SE15:ST0P 

523 REM ORDINAMENTO CRESCENTE 

525 REM mommot mi me* mommo» mi 

527 L=N-i 

529 H=0 

531 F 0RJ = 1T0L 

533 IFC$<JX=CS<J+DTHEN543 
535 R$=CS<J>:C$(J)=C$<J+l>•CSCJ+1)=RS 
537 X=TX<J):TX<J)=TX<J+1):TX«J+1)=X 
539 X=SX<J>:SX<J>=SX<J+l):SX<J+1)=X 
541 M=i 
543 NEXTJ 

545 IFH=OTHENRETURN 

547 IFL=1THENRETURN 

549 L=L-1 G0T0529 

551 REM ORDINAMENTO DECRESCENTE 

553 REM WHHHHHHHHHHHHHHHHHHHHW 

555 L=K-1 
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557 M=0 

559 FORJ = JLTOL 

5Gi IFC$<J)>=C$(J+i>THEN571 
563 R$=C$<J>:CS<J>=CS<J+i):C$<J+1)=RS 
565 X = T/.( J> : T'/.< J>=TZ<J+±> -T/.i J+i)=X 
567 X=S/'<J> :SX<J>=S>!< J+i) : SX<J+i>=X 

569 W=i 

I MTWT T 

J i jl nLft i j 

573 IFU=0THENRETURN 
575 IFL=iTHENRETURN 
577 L=L-i -■ G0T0557 


Non ci sembra necessario riportare il commento di ARANDOMUSER. 
Esso e' infatti stato ricavato da ARCHIRANDOM, apportando alcune 
modifiche che elenchiamo: 

. il settore che contiene i dati generali del disco non e' piu' 
quello di indirizzo 1,0; il suo indirizzo si trova nel primo 
record di INDI1. 

. i dati generali del disco non comprendono piu' l'indirizzo 
dell'ultimo settore scritto, ma e' presente il numero N dei 
record previsti e il numero K di quelli effettivamente presen¬ 
ti . 

. il file INDI1 deve essere trasferito nei 3 vettori ad esso 
riservati a partire dal secondo record. 

. il file INDI1 deve essere sempre ordinato e riscritto tutto, 
altrimenti si perdono gli indirizzi di traccia e settore. 

. i record di INDI1 non usati, chiave che inizia con CHR$(99), 
nell'ordinamento vanno in fondo, ma restano. 

. per cancellare un record si pone CHR$(99) all'inizio della 
chiave in INDI1. 

. se si crea INDI2 si deve lavorare su INDI1 ordinato, INDI2 
viene preparato solo per i K record presenti. 

. nella fase di aggiunta record si deve cercare in INDI1 la pri¬ 
ma chiave che inizia con CHR$(99), leggere il corrispondente set¬ 
tore e riscriverlo senza perdere i primi due caratteri di 
concatenamento. 

. nel programma non e' piu' presente la fase di 

inizializzazione, svolta dal programma INIZIOFILE. 

Se hai riflettuto bene su questo argomento, non ti sara' diffi¬ 
cile adattare questi programmi per poter gestire anche record 
logici di lunghezza sottomultipla di un settore; solo che in que¬ 
sto caso l'indice deve contenere anche un campo che fornisca la 
posizione del record logico nel settore, da caricare nel punta¬ 
tore al buffer. 
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6.7 FILE RELATIVI DI DATI 


I file di questo tipo sono trattati dalle istruzioni del DOS per 
la gestione dei file relativi, elencate nel Paragrafo 6.2. 

La differenza tra i file random e i file relativi consiste nei 
seguenti fatti: 

. per accedere ai record di un file relativo si deve fornire al 
programma il numero d'ordine del record nel file, indirizzo logi¬ 
co, invece dell'indirizzo fisico del blocco. 

. i record logici devono essere di lunghezza fissa, che deve 
essere al massimo di 254 caratteri, comprendendo i caratteri di 
fine campo e/o record. Pero' la lunghezza può' essere anche un 
numero che non risulti sottomultiplo di 254, infatti il sistema 
gestisce anche record logici registrati a cavallo tra due set¬ 
tori (spanned), come per i file sequenziali. 

I primi due caratteri di ogni settore sono usati, come al soli¬ 
to, per concatenare tra loro i settori. 

. il sistema, conoscendo la lunghezza di un record e il suo 
numero d'ordine nel file, ricava con un semplice algoritmo 
l'indirizzo di traccia e settore necessario. 

. il sistema gestisce i file relativi con l'aiuto di un suo 
indice interno, che genera al momento della creazione del file, 
chiamato SIDE SECTOR. Esso e' formato al massimo da 6 settori 
numerati logicamente da 0 a 5, che vengono utilizzati per conte¬ 
nere l'indice di tutti i blocchi fisici utilizzati per il file 
relativo. In ogni blocco dell'indice SIDE SECTOR possono essere 
registrati gli indirizzi di 120 settori; per questa ragione il 
file relativo può' occupare al massimo 120*6=720 settori, che nel 
nostro caso sono di piu' di quelli disponibili su un floppy. 
Inoltre il numero dei record logici gestibili non può' superare 
65535, infatti e' espresso in due byte consecutivi. La struttura 
di un blocco SIDE SECTOR e' la seguente: 

. byte 0 e 1, concatenamento al settore successivo. 

. byte 2, numero del blocco, da 0 a 5. 

. byte 3. lunghezza del record logico, massimo 254. 

. byte 4 e 5, traccia e settore del SIDE SECTOR 0. 

. byte 6 e 7, traccia e settore del SIDE SECTOR 1. 

. byte 8 e 9, traccia e settore del SIDE SECTOR 2. 

. byte 10 e 11, traccia e settore del SIDE SECTOR 3- 

. byte 12 e 13, traccia e settore del SIDE SECTOR 4. 

. byte 14 e 15, traccia e settore del SIDE SECTOR 5. 

. byte 16 e 17, indirizzo primo settore dati (t,s). 

. byte 18 e 19, indirizzo secondo settore dati (t,s). 


. byte 254 e 255, indirizzo 120-esimo settore dati (t,s). 

. viene registrata una entrata nella directory che tiene conto 
di tutti i blocchi occupati, file e side sector. Inoltre nell'en- 
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trata e' indicato l'indirizzo del primo settore del side sector. 

. il file può' essere creato scrivendo i record in ordine casua¬ 
le; in conseguenza possono restare dei record non usati, che il 
sistema riempie scrivendo 255 (FFH) nella prima posizione e tut¬ 
ti bit 0 nelle altre. 

. il sistema usa un buffer in piu' per gestire il file, infatti 
deve leggere anche il side sector. 

. e' consigliabile preestendere il file in fase di creazione; 
questo rende piu' veloci le operazioni successive. Per preesten¬ 
dere il file basta scrivere l'ultimo record; infatti pensa il 
sistema a predisporre tutti i precedenti e a creare il numero di 
blocchi di side sector necessari. 

Anche per i file relativi sussiste il problema dell'accesso ai 
record, già' esaminato per i file random. L'indice SIDE SECTOR 
creato dal sistema serve solo per gestire i blocchi fisici. In 
conseguenza un buon programma di gestione di un archivio deve 
creare anche un indice sequenziale per chiavi dì accesso; in que¬ 
sto caso l'indice può' essere formato solo da due campi: chiave 
di accesso, numero d'ordine del record nel file. 

Seguono 4 programmi esempio che consentono di capire come si usa¬ 
no i comandi del DOS per i file relativi; essi sono: 

. FRELCREA, per preestendere un file, 

. FHELSCRIVI, per scrivere record in un file, 

. FRELLEGGI, per leggere record da un file, 

. FRELCAMPOLEGGI, per mostrare come si può' accedere a un campo 
e non a tutto il record. 

Questi programmi gestiscono un file relativo di nome PROVA REL, 
formato da 30 record logici di 21 caratteri ciascuno. Ogni record 
comprende 2 campi, il primo di 10 caratteri + fine campo 
(CHR$(13)), e il secondo di 9 caratteri + fine campo. 

Dopo aver fatto girare i singoli programmi puoi analizzare il 
contenuto della directory e dei blocchi occupati per verificare 
quanto sopra esposto, usando i programmi di utilità' DCOMEFS e 
TRAC/SET. 

Osserva in ogni programma come avviene la preparazione del nume¬ 
ro del record e del puntatore al campo. 

1 REM FRELCREA 
3 REM MMmtmtKM 

5 REM CREAZIONE FILE RELATIVO 
7 REM PREESTENSIONE FILE 
9 REM 30 RECORD DI 21 CARATTERI 
13 REM COMPRESO RETURN FINALE 
15 REM WHHHHHHHHHHHHHHHHBHHHHHHt 
17 DRS="0":NF$=DR$+": PROVA REL,L, 

19 SA=2:LF = 2 :RCS="-•• :RCS=RCS+RC$ 

21 BI=i:NR=30:LU=21 
23 0PEN15,8,15,"I“ 

25 REM APERTURA FILE 
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27 REM kxkkkmxummmkm 
29 0PENLF,8,SA,NF$+CHR$<LU) 

31 G0SUB73 

33 REM PREESTENSIONE FILE 
35 REM PER NR RECORD 
37 REM IHHHHHHHHHHHHHHBHHI 
39 F0RX=NRT01STEP-1 
41 HI=INT<X/256):L0=X-HI*256 
43 CS="P’ , *CHR$<SA) 

45 REM NUMERO RECORD (BYTE BASSO + BYTE ALTO) 
47 REM KMKMKKMKMKKMKKKKKKKHICKMXKMKMKKWIOCKKMWM 
49 C$=C$+CHR$(LO)+CHR$<HI) 

51 REM PUNTATORE AL PRIMO BYTE DEL RECORD 
53 REM XXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXX 
55 C5=C$+CHR$(BI) 

57 REM POSIZIONA IL PUNTATORE 

59 REM WHHHHHHHHHHHHHHHHHHHW 

61 PRINTM15,CSGOSUB73 

63 REM SCRIVE IL RECORD DI LINEETTE 

65 REM H -K K - WMMM - MMMWll WMHK WHHHH H HHHHHt 

67 PRINTHLFj RC$:G0SUB73 

69 NEXTX:CL0SELF:G0SUB73 CL0SE15:END 

71 REM ROUTINE ERRORE 

73 REM IHHHHHHHHHHHHHt 

75 INPUT»15,EN,EMS,ET,ES 

77 IFEN-00REN=50THENRETURN 

79 PRINTEN,EMS;ET;ES 

81 STOP:RETURN 


I REM FRELSCRIUI 
3 REM MWKMMmtMWK 

5 REM SCRITTURA RECORD NEL FILE 
7 REM RELATIUO, OGNI RECORD 2 CAMPI 
9 REM NOME DI 10 CARATTERI 

II REM TELEFONO DI 9 CARATTERI 

13 REM LUNGHEZZA RECORD=10+i+9+i=2i 
15 REM whhhhhhhhhhhhhhhhhhhhhhhhhhi 
17 DRS= ,, 0' , :NFS=DR$+":PROUA REL,L," 

19 LU=21:SA=2:LF=2:BS=" 

21 BI=1:NR=30 
23 0PEN15< 8,15,"I" 

25 REM APERTURA FILE 
27 REM whhhbhhhhhhw 
29 0PENLF,8,SA,NFS+CHR$(LU) 

31 G0SUB71 

33 PRINT"NOME=* PER USCIRE":PRINT 
35 INPUT"NOME<10)";N$ 

37 IFNS="w"THEN69 
39 N$=LEFT$(NS+BS,10) 

41 INPUT"TEL. <9)";T$:TS=LEFTS<T$+B$,9> 
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43 INPUT"RECORD ";R 

45 IFR=80RR>NRTHENPRINTCHR$<145>;:G0T043 
47 REM PREPARAZIONE PUNTATORE 
49 REM mHHHHHHHHHHHHHHHHHHHW 
51 HI=INT<R/258»:L0=R-HI*25G 
53 C$="P”+CHRS<SA) 

55 C$=C$+CHRS<LO)+CHRS<HI> 

57 C$=C$+CHR$(BI) 

59 PRINT**15,C$:G0SUB71 

Gl REM SCRIVE RECORD 

63 REM WHHHHHHHHHHHI 

65 PRINTMLF,N$;CHR$<13);T$:G0SUB71 

67 G0T033 

69 CLOSELF : G0SUB71 CL0SE15 : ENI) 

71 REM ROUTINE ERRORE, ACCETTA COD. 50 
73 REM IO(M><ltKmOtllMKMMm<>(WK>tlOO<MK> * > t »l M Ht 
75 INPUTM15,EN,EMS,ET,ES 
77 IFEN=0OREN=50THENRETURN 
79 PRINTEN;E MS;ET;ES 
81 STOP:RETURN 


I REM FRELLEGGI 
3 REM MMMUKimwM 

5 REM LETTURA RECORD 
7 REM WHHHHHHHHHHBHt 
9 DR5="0 ,, :NF$=DR$+": PROVA REL.L," 

II LU=21:SA=2:LF=2 
13 BI=1 :NR = 30 

15 0PEN15,8,15,‘’I" 

17 REM APRE FILE 
19 REM 

21 0PENLF,8,SA,NFS+CHRS < LU) 

23 G0SUB61 

25 PRINT"RECORD=0 PER USCIRE":PRINT 
27 INPUT"RECORD ";R 
29 IFR=0THEN59 

31 IFR<B0RR>NRTHENPRINTCHR$<145>;-G0T027 
33 REM PREPARA PUNTATORE 
35 REM «W HOmMMItKlOHOtM* » 

37 HI=INT<R/256):L0=R-HI*256 
39 C$ = "P ,, +CHRS<SA) 

41 C$=C$+CHR$<LO)+CHR$<HI) 

43 C$=C$+CHR$<BI> 

45 PRINTH15,C$:G0SUB61 
47 REM LEGGE RECORD 
49 REM MMWMMumcwKiiw 
51 INPUTMLF,NS,TS:G0SUB61 
53 PRINT"NOME: ";NS 
55 PRINT"TEL, : ";TS 
57 G0T025 

59 CLOSELF:GOSUB61:CL0SE15; END 



61 REM ROUTINE ERRORE, AMMETTE COD. 58 
63 REM MKKWKWWKMKKWMKKKIOO tl HHHH H OtKWKK » » 
65 INPUTt»15,EN,EMS,ET,ES 
67 IFEN=0OREN=58THENRETURN 
69 PRINTEN;EM$;ET;ES 
71 STOP : RETURN 


I REM FRELCAMPOLEGGI 
3 REM WWOdtUMMIlKKKWW 

5 REM LETTURA SOLO DEL SECONDO CAMPO 
7 REM DI UN RECORD R 

9 REM Mmtmtmtititin t itiomititmtmotitintitinntit 

II DR$="0":NF$=DR$+":PROUA REL,L,” 

13 LU=2i:SA=2:LF=2 

15 BI=12:NR=30 
17 INPUT“RECORD “;R 

19 IFR=60RR>NRTHENPRINTCHR$<145>;:G0T015 
21 0PEN15,8,15,“I" 

23 REM APREFILE 
25 REM mutui » mot 
27 OPENLF,8,SA,NF$+CHR$<LU) 

29 G0SUB55 

31 REM PREPARA PUNTATORE 
33 REM momm i mon o » mt m m t w 
35 HI = INT < R/256):LO=R—H1*256 
37 C$="P"+CHR$<SA> 

39 C$=C$+CHR$(LO)+CHR$<HI) 

41 C$=C$+CHRS(BI) 

43 PRINTM15,CSG0SUB55 

45 REM LEGGE CAMPO 

47 REM m t m t itmtiootit 

49 INPUTMLF,T$ - G0SUB55 

51 PRINT"TEL.: ”;T5 

53 CLOSELF:G0SUB55:CL0SE15: END 

55 REM ROUTINE ERRORE, AMMETTE COD. 50 

57 REM «HHHHHOHHHHHOHHHHOOHOOOHHHHHHHHt 

59 INPUTM15,EN,EM$,ET,ES 

61 IFEN=0OREN=5OTHENRETURN 

63 PRINTEN;EMS;ET;ES 

65 STOP RETURN 


Ti facciamo notare che la routine di errore scarta il codice 50, 
che in questo caso non e' un errore. 

Il programma FLCREA preestende il file senza dividere il record 
in campi. Il puntatore deve avere il valore 1 per iniziare a 
scrivere il record. 

Nel programma FRELSCRIVI il record viene scritto con una sola 
PRINT# che ha nella lista-dati tutti i campi con i loro separa¬ 
tori . 
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Il programma FRELLEGGI legge i due campi del record con una sola 
INPUT# in due variabili. 

Nel programma FRELCAMPOLEGGI invece il puntatore viene posto a 12 
per leggere solo il secondo campo del record. 

Abbiamo modificato il programma ARCHIRANDOM per ottenere 
ARCHIRELATIVO, che gestisce un file relativo con indice princi¬ 
pale e secondario. In questo caso i dati generali dell'archivio, 
che erano memorizzati nel settore 0 della traccia 1, sono 
memorizzati in un piccolo file sequenziale di nome DATIGEN, sul 
disco dati, che viene creato quando si crea ex-novo l'archivio, 
e, ad ogni elaborazione, viene letto all'inizio e aggiornato al¬ 
la fine. Per il resto abbiamo lasciato invariata la struttura del 
record e dei campi. Inoltre, nella fase di creazione dell'ar¬ 
chivio, i record sono caricati in sequenza, senza chiedere il 
numero del record, come e' stato fatto in FRELSCRIVI. 


i REM ARCHIRELATIVO 
3 REM WHHHUUHUHUHHI 

5 REM DEFINIZIONE COSTANTI E VARIABILI 
7 REM »»«« » * »» « »*«mumm tK whkk immuunno 
9 NC=14: REM NUMERO CAMPI RECORD 
il Si$="DATA ULTIMO AGG. 

13 S2$="FINIT0 SPAZIO ASSEGNATO" 

15 SP$=“" : FORK=1T079 : SPS=SPS+ , ‘ " : NEXTK 
17 SUU=0:REM PER EVITARE RIDIMENSIONAMENTO 
19 CH$=CHRS<13>:LIM$=CHR$<99>+CHR$<99)*CHR$<99> 
21 DIMD$<NO : DIMYS<NC) : DIML (NC) 


23 

DATA"COGNOME 

","NOME 

"INDIR. 

25 

DATA"CITTA ' 

","PROV. 

:","TELEF. 

27 

DATA"L.NASC. 

",“D.NASC 

. : ","T.STUD. : 

29 

DATA"0CC.AT. 

","OCC.PR 

. :"i"ST.CIV. : 

31 

DATA"N0TA 1 

"."NOTA 2 

. 11 

33 

DATA20.15,30, 

25,11,10, 

20,8,20,20,20 


35 FORJ=1T0NC:READD$< J):NEXTJ 
37 F0RJ=1T0NC:READL<J>:NEXTJ 
39 REM PRESENTAZIONE MENU' E SCELTE 
41 rem mtmimmKimiiKMMwimiummm -K-i nn Ht 
43 CL0SE15:0PEN15,8,15 

45 PRINT" LI«fl ":TAB<10> : "GESTIONE ARCHI VIO" : PRINT 
47 PRINTTAB<10)"i=INIZIO EX-NOVO” 

49 PRINTTAB<10>"2=AGGIORNAMENTO" 

51 PRINTTAB<10>"3=LISTA PRINCIPALE" 

53 PRINTTAB<10)"4=CREAZ.IND.SEC." 

55 PRINTTAB<10>"5=LISTA SECONDARIA" 

5? PRINTTAB<10)"9=FINE" 

59 INPUT"COSA SCEGLI "jX 

Gl IFX<10RX>5ANDX<>9THENPRINT"O";:G0T059 
63 PRINT:G0SUB29? 

65 RS="":PRINTTAB110>"MONTA DISCO DATI" 
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67 GETR$:IFR$=""THEN67 
69 IFX=1THEN91 
71 PRINTttl5, "I" 

73 G0SUB259:PRINT''PRESENTI ";K;" RECORD" 

75 NN$=N$+“,L,"+CHR$<254> 

77 PRINTS1$; GIS; *V";Ml$; "V";A1S 
79 R$="" : GETRS : IFRS="'*THEN79 
81 IFSMM=0THENDIMCS(N>, TX<N> 

83 G0SUB273 
85 IFX=9THEN56i 
87 0NX-1G0TQ361,491,523,543 
89 STOP 

91 REM INIZIO EX-NOVO ARCHIVIO 

93 REM WHHHHHHH H HHHHHHHHHHHHW 

95 PRINT”POSSO FORMATTARE IL DISCO DATI S/N" 

97 R$="":INPUTRS:IFR$=""THEN97 

99 IFRS="S'"THEN103 

161 STOP 

103 GOSUB323 

105 INPUT"[£jNOME FILE DA INIZIARE: ";N$ 

107 INPUT"QUANTI RECORD IN TUTTO: ";N 

109 DIMC$(N),TX<N>:SWW=i 

111 REM PREPARAZIONE CAMPI DUMMV 

113 REM WHHHHHHHHBHHHHHHHHHHHHW 

115 PlS="*":F0RJ=lT052:PiS=Pi$+” ":NEXTJ 

117 P2$=LEFTS<P1$,37> 

119 REM PREESTENSIONE FILE N$ 

121 REM KMwmm h wkh mh x»w kkm km * 

123 OPEN11,8,il,N$+",L,"+CHRS<254> 

125 F0RJ=NT01STEP1 

127 HI=INT<J/256>:L0=J-HI*256 

129 C$="P"+CHR$<il)+CHR$(LO)+CHR$(HI>+CHR$Cl> 
131 PRINTM15,C$:G0SUB285 

133 PRINTUII,P1SCHSP1SCHSP1SCHSP1SCHSP2SCHS; 
135 G0SUB285 

137 NEXTJ:CLOSE11:G0SUB285 

139 REM PREPARAZIONE INDICE 

141 REM mmKKMXWKKK K M M KMWWM 

143 EORJ=lTON:TX(J)=J 

145 C$<J)=LIM$:NEXTJ 

147 G0SUB177: REM SCRIVE INDIi 

149 K=0GOSUB221GOTO43 

151 REM INGRESSO DATI 

153 REM WHBHHHHHHHHW 

155 PRINT"L,INGRESSO DATI" 

157 F0RJ=1TONC:Y$<J)="“:NEXTJ 

159 PRINT"PER USCIRE $ PER COGNOME"; 

161 PRINT"|]SE MANCANO DATIPREMI SOLO RETURN" 
163 PRINTDS(l);:INPUTVS(l) 

165 IFY$<l>="S"THENW=i:RETURN 
167 FORJ=2TONC:PRINTD$<J>;:INPUTVS(J>:NEXTJ 
169 REM SISTEMA LUNGHEZZA DATI 
171 REM WH H HHHHHHHHHHHHHHHHHHI 
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173 F0RJ=1T0NC:YS<J>=LEFTS<YS<J>+SPS,L<J>> 

175 NEXT J:G0SUB439: RETURN 
177 REM SCRITTURA INDICE PRINCIPALE 
179 REM ihhhhhhhhhhhhhhwihhhhhhumiw 
181 PRINTM15,"SO:INDI1”:PRINTI#15,"I" 

183 OPEN10,8,10,"INDIi,S,W":G0SUB285 
185 FORJ=1T0N 

187 PRINT#10,CS<J>;CHS;TX<J>;CH$; 

189 G0SUB285:NEXTJ 

191 CLOSE10:RETURN 

193 REM SCRITTURA RECORD PUNTATO 

195 REM COSTRUZIONE STRINGA DI STAMPA 

197 REM WHHHHHHHHHHHHHHHHHHHtWHHHHHW 

199 C$="":F0RJ=1T0NC 

201 VS<J>=LEFT$<YS<J:»+SPS,L<J>> 

203 CS=CS*YS<J>+CHSNEXTJ 
205 PRINT#ii,CS; G0SUB285 
207 RETURN 

209 REM DEFINISCE POSIZIONE RECORD K 
211 REM IHHHHHHHHHHHHHHHHHHHH HH HHHHW 
213 HI=INT(T/256> 

215 L0=T-HI*256 

217 PRINTtti5."P"+CHR$<ll>+CHRS<L0>+CHR$<HI>+CHRS 
< 1 ) 

219 G0SUB285:RETURN 
221 REM SCRITTURA DATIGEN DISCO 
223 REM WHHHHHHH H HHHHH H HHHHHHHt 
225 PRINT»15,"S0 DATIGEN" 

227 PRINTM15,“I” 

229 0PEN16,8,10,"DATIGEN,S,M":G0SUB285 
231 PRINTH10,NSCHSGSMSASCHS;N;CHS;K;CHS; 

233 CLOSE10 RETURN 

235 REM RICERCA POSTO NELL'INDICE 

237 REM 

239 JJ=0FORJ=1TON 

241 IFLEFTS<CS<J>,1)=CHRS<99>THEN 245 

243 NEXTJ:RETURN 

245 JJ=J:J=N:G0T0243 

247 REM LETTURA RECORD 

249 REM WHHHHHHHHHHHW 

251 PRINTM15,"I" : 0PEN11,8,11, NNS : G0SUB285 
253 GOSUB209 

255 FORJ=lTONC:INPUTH11,Y$<J>:G0SUB285 
257 NEXTJ:CL0SE11:RETURN 
259 REM LETT.DATI DISCO 

261 REM IHHHHHH H HHHHHHHt 

263 OPEN10,8,18,"DATIGEN,S,R":60SUB285 
265 INPUTM10,NS,RS,N,K-G0SUB285 
267 CLOSE10:GOSUB285 

269 G1S=LEFTS<RS,2>:M1S=MIDS<RS,3,2) 

271 A1S=RIGHTS<RS,2» RETURN 
273 REM LETT. INDICE 
275 REM miWKKMWMMKKK 



277 OPEN10,8,10,"INDI1 # S,R":G0SUB285 
279 I ORJ=1T0N 

281 INPUT«10,CS(J) # T2<J>:G0SUB285 
283 NEXTJ:CLOSE10:RETURN 
285 REM ROUTINE ERRORE 
287 REM 

289 INPUT«*15,EN,EM$,ET,ES 
291 IFEN=0OREN=5OTHENRETURN 
293 PRINT"l*]ERRORE DISCO" 

295 PRINTEN,EM$,ET,ES:CL0SE15: STOP 
297 REM DATA DISCO 
299 REM KKWWKKMIOOt 
301 PRINT-DATA PER DISCO” 

303 INPUT” GG, MM, AAIIIIflllllll" ; G$, M$, A$ : RETURN 
305 REM SCRITT. IND. SEC. 

307 REM MMWKMM I CWKWMMKKIWW 

309 PRINT»15."S:INDI2":PRINTt*15,"I" 

311 OPEN10,8,i0, ,, INDI2,S,W” 

313 F0RJ=1T0K 

315 PRINTM10,C$<J>;CH$;TX(J); CHS; 

317 G0SUB285:NEXT J:CLOSE10: RETURN 
319 RS = "" : GETRS : IFRS=""THEN319 
321 RETURN 

323 REM INIZIALIZZAZIONE DISCO 
325 REM WHHBHHHHHHHHHHHHHHHHHt 
327 PRINT-NOME DISCO";:INPUTNS 
329 PRINTM15,"N0:"+NS+",99" 

331 CL0SE15:OPEN15,8,15:PRINTH15, "I" 

333 RETURN 

335 REM NUOVI DATI 

337 REM mmmmuMmf 

339 0PEN11.8.11,NNS:G0SUB285 

341 G0SUB151 

343 IFM=1THENK=K-1:CLOSE11:G0T0561 

345 G0SUB235:IFJJ=8THENSTOP: REM STOP IMPOSS. 

347 T=TX(JJ> GOSUB209:60SUB193 
349 REM AGGIORNAMENTO INDICE 
351 REM WHHHHHHHHHHHH H H H HH H I 
353 CS<JJ> = YSd>+Y$<2) 

355 K=K«-1 

357 IFK>NTHENK=K-i:PRINTS2S:CL0SE11 G0T0561 

359 G0T0341 

361 REM AGGIORNAMENTO 

363 REM mHHHHHHHHHHHt 

365 PRINTTABdO) : ■'ll'L'lAGG I ORNAMENTO ARCHIVIO" 

367 PRINT : PRINTTABdO) ; "1=C0RREZI0NE" 

369 PRINTTABdO); "2=AGGIUNTA ELEM." 

371 PRIHTTAB<10);"3=CANCELL.ELEM." 

373 PRINTTABd0);"9=FINE" 

375 INPUT"COSA SCEGLI ";X :IFX=9THEN561 
377 IFXdORX>3THEN365 
379 IFX=2THEN461 
381 IFX=3THEN475 
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383 G0T04Ì7 

385 REM RICERCA RECORD 
387 REM WHBHHHHHHHHHH» 

389 PRINT"L";DSCi>; :VSC1>="“: INPUTVSC1) : M=8 

391 IFVS< 1)= ,, $ ,, THENM=1 : RETURN 

393 PRINTDSC2) ; : YSC2>="" : INPUTYSC2) 

395 V$Ci)=LEFTSCYSCl)+SPSjLCl>> 

397 VSC2)=LEFTSCYSC2)+SPS,LC2>> 

399 INPUT ,, QUALE OCCORRENZA ";X 
401 IFX<=0THENPRINT“O";:G0T0399 
403 F0RJ=1T0K:IFCSCJ)=VSC1)+YSC2)THEN41i 
405 NEXTJ 

407 J=J-1-PRINT"N0N TROVATO ";VSC1>;" ";Y$C2> 

409 G0SUB319:G0T0385 

411 IFX<>1THENX=X-1:G0T0465 

413 T=TXCJ> 

415 I=J:J=K:NEXTJ:RETURN 
417 REM CORREZIONE 
419 REM ** * * * ** *** 

421 G0SUB385:IFW=1THEN365 
423 G0SUB247 

425 REM UA A MODIFICA DATI 
427 REM WHBHHH H H H HHHBHHHH t 
429 G0SUB439 

431 PR INTUÌ 5, <, I l, :0PENllj8 J ll J NNS 
433 G0SUB209:G0SUB193 
435 CSCI>=VSC1)+YSC2) 

437 CL0SE11:G0T0417 

439 REM CONTROLLO DATI E MODIFICHE 

441 REM ************************** 

443 PRINT"LCONTROLL0 DATI E MODIFICHE" 

445 F0RJ=1T0NC:PRINTJ;" ";DSCJ>;" ";YSCJ>:NEXTJ 
447 INPUT"fcJTUTTO BENE S/N ";XS: IFXS="S”THENRETUR 
N 

449 PRINT"QUALE CAMPO CO USCITA)";:INPUTX 
451 IFX=OTHENRETURN 

453 IFX>NC0RXClTHENPRINT"Cn":G0T0447 
455 YSCX>="" 

457 INPUTYSCX):Y$CX>=LEFTSCYSCX)+ SPS,LCX)> 

459 G0T0443 
461 REM AGGIUNTA 
463 REM ***numi Kit 

465 PRINT"UtGGIUNTA NUOVI RECORD" 

467 PRINT”PRESENTI ";K;" RECORD" 

469 PRINT"PUOI AGGIUNGERE ";N-K;" RECORD" 

471 G0SUB319 
473 U=0:K=K+i:GOTO335 
475 REM CANCELLAZIONE 
477 REM mnotWKKWKKWKW 
479 M=0 

481 G0SUB385:IFM=1THEN487 

483 X=LC1)+LC2>: CSC I>=LEFTSCLIMS+SPS+SPS,X> 

485 M=M+i:G0T0481 



487 REM SIST. INDICE 

489 G0SUB581:K=K-M:G0T0573 

491 REM LISTA FILE 

493 REM WHHHHHH H W 

495 1$="LISTA PER INDICE PRIM." 

497 PRINT"ACCENDI STAMPANTE PREMI UN TASTO" 

499 GETR$:IFR$=""THEN499 
501 PRINT , V;T$:0PEN4,4 
503 PRINTtt4:PRINT#4:PRINTtt4,T$ 

505 FORJ=1TO10:PRINT«4NEXTJ 

507 L=2: FORI=1T0K: T=TZ<I> G0SUB247 

509 PRINTM4,Y$<1>;" “;V$<2> 

511 PRINTM4,VS<3>;“ ";V$(4>;" “;Y$<5> 

513 F0RM=6T0NC:PRINT#4,DS<M>;Y$<M> NEXTM 

515 PRINTM4:PRINTH4 

517 IFL=5THENPRINT«4L=0 

519 L=L+1:NEXTI 

521 CL0SE4:G0T0575 

523 REM CREAZIONE INDICE SECONDARIO 
525 REM » MHHHHHBHHHHHHW IHHHHHHHHHHt 
527 PRINT"LINDICE SECONDARIO" 

529 INPUT"l!]QUALE CAMPO **;X$ 

531 X=UAL < XS >:IFX<20RX>NCTHENG0T0529 

533 FORI=lTOKT=TX<I>:G0SUB247 

534 IFLEN<VS<X)»=0THENV$(X>=CHR$C160> 

535 C$<I) = Y$<X) : NEXTI 
537 GOSUB305:G0SUB273 

539 PRINT“FINITO IND. SEC." 

541 G0T0575 

543 REM LISTA PER INDICE SECONDARIO 
545 REM IHHHHHHHHHHHHHHHHHHHHHHHH H Ht 
547 PRINT"LLISTA IND. SEC." 

549 OPEN10,8,10,"INDI2,S,R":GOSUB285 
551 FORJ = 1T0K: INPUTM10,CS<J),TXCJ) 

553 G0SUB285:NEXTJ 

555 CLOSE10-GOSUB607:GOSUB305 

557 TS="LISTA IND. SEC. " 

559 GOT0497 < 

561 REM CHIUSURA 
563 REM whhhhhhi 
565 PRINT*'CHIUSURA ARCHIVIO" 

567 PRINT"ki!j ORDINA INDICE INDI1" 

569 PRINT" ATTENDI CON PAZIENZA" 

571 G0SUB581 

573 G0SUB177:G0SUB221 

575 PRINT"FINITO AGGIORNAMENTO" 

577 PRINT"SONO PRESENTI ";K;" RECORD" 

579 CL0SE15: STOP 

581 REM ORDINAMENTO CRESCENTE 

583 REM WHHHHH H HHHHHHHHHHHHW 

585 L=N-i 

587 M=0 

589 F0RJ=1T0L 
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591 IFC$< JK=C$( J+DTHEN599 
593 R$=C$<J>:CS(J)=C$<J+1):CS<J+1>=RS 
595 X=TX<J> --TX<J>=TX<J+i> :TX<J+i> = X 
597 W=1 
599 NEXTJ 

601 IFM=0THENRETURN 

603 IFL=iTHENRETURN 

605 L=L-1-G0T0587 

607 REH ORDINAMENTO DECRESCENTE 

609 REM WHHHHHHHHHHHHHHHHHHHHHt 

611 L=K-i 

613 U=0 

615 FORJ=lTOL 

617 IFC$<J)>=CS<J+DTHEN625 
619 R$=C$<J>:CS<J>=C$<J*1>:CS<J+1)=RS 
621 X=TX<J>:TX<J>=TX<J+1) TX<J+i>=X 
623 M=1 
625 NEXTJ 

627 IFM=0THENRETURN 
629 IFL=1THENRETURN 
631 E=L-1G0T0613 


Non riportiamo per esteso il commento al programma, ma segna¬ 
liamo le parti che riguardano il trattamento del file relativo. 

. 111/137: preestensione file nella fase 1 del menu'. 

. 193/207: viene preparata la stringa di scrittura di un record 
logico con tutti i campi. 

. 209/219: definizione posizione record e puntatore. 

. 235/245: ricerca posto nell'indice. 


Anche per questo archivio devi fare delle considerazioni sull'oc¬ 
cupazione di memoria e la quantità' di record trattabili, come 
per il file random. 


A questo punto pensiamo che lo studio dei diversi programmi di 
archivio presentati ti potrà' garantire una buona conoscenza dei 
diversi tipi di file gestibili e potrai, o modificare i program¬ 
mi per adattarli alle tue esigenze, o prepararne altri, magari 
servendoti di alcune delle routine da noi utilizzate. 

In questo capitolo non ci siamo preoccupati di presentare quadri 
video particolarmente belli, potrai migliorare tu le situazioni, 
usando anche i colori. 

Inoltre, se vuoi, potrai controllare l'ingresso dati, con appo¬ 
site routine, per evitare segnalazioni di errore che deturpano i 
quadri video. 
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6.8 PROGRAMMI DI UTILITÀ' 


Si definiscono tali i programmi che sono di aiuto durante il 
lavoro di programmazione. Nella scatola dell'unita' 15^11 si tro¬ 
va anche il dischetto TEST/DEMO, che contiene alcuni programmi di 
utilità'. Riportiamo un breve commento ad alcuni di essi. 

C-64 WEDGE carica il DOS 5.1; dopo averlo fatto girare sono atti¬ 
vi i seguenti comandi: 

. /nome-programma, per caricare un programma dal dischetto. 

. > oppure @, per visualizzare lo stato delle 4 variabili di 
errore disco. 

. >$ oppure per visualizzare la directory sul video, senza 

cancellare il programma presente in memoria. 

Il programma resta attivo fino a quando togli corrente. 

COPY/ALL ti permette di eseguire la copia dei dischetti colle¬ 
gando 2 unita' 1541. Devi cambiare il "dn" di una di esse da 8 a 
9, con il programma DISK ADDR CHANCE. Il cambio di unita' resta 
valido fino a quando togli corrente. Prima di eseguire una copia 
conviene proteggere il disco sorgente chiudendo la finestrella 
laterale. 

In commercio esistono programmi che consentono dì eseguire la 
copia dei floppy anche disponendo di una sola unita' ; viene 
richiesto con un messaggio di scambiare i floppy quando e' neces¬ 
sario. 

DIR serve per: leggere e listare la directory, eseguire comandi 
del DOS, visualizzare le 4 variabili di errore. Il programma 
presenta un certo interesse per le tecniche di programmazione 
usate. La directory viene aperta come file "$0" sul canale 0, con 
lfn=1 e poi letta con GET#1, carattere per carattere. 

VIEW BAM visualizza sul video la BAM in due quadri video, come 
una matrice, riportando sull'asse orizzontale le tracce e 
sull'asse verticale i settori. Il programma contiene un'imper¬ 
fezione, infatti nelle tracce da 18 a 24 sono mostrati senza 
l'annullamento N/L, ma come occupati, i settori 19 che non 
esistono. 

? 

CHECK DISK controlla se il dischetto ha settori rovinati, ma 
risulta molto lento, dopo aver segnalato eventuali settori rovi¬ 
nati lascia il dischetto tutto occupato. Andrebbe eseguito il 
comando COLLECT o VALIDATE e bisognerebbe escludere i settori 
rovinati marcandoli come occupati sia nella BAM che nella 
directory. 

DISPLAY T&S serve per visualizzare o su video o su stampante il 
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contenuto di uno o piu' settori del floppy. Vengono mostrati a 
sinistra i contenuti esadecimali e a destra i caratteri di stam¬ 
pa. In certi casi va in crisi; puoi premere RESET mentre tieni 
premuto RUN/STOP, poi uscire dal MONITOR con X e ripartire. 

Riportiamo ora alcuni programmi di utilità' preparati da noi. 

DCOMEFS stampa la BAM e la directory. Nella prima parte vengono 
evidenziati i 35 gruppi di 4 byte dedicati alla BAM, vedi descri¬ 
zione del Paragrafo 6.1. Dopo sono stampate le informazioni rela¬ 
tive ad ogni entrata della directory. 

Il programma manda l'uscita alla stampante, puoi dirigerla al 
video modificando la linea 30 in OPEN4.6. 


5 REM DCOMEFS 

10 T$<0)="DEL": TS(1)= ,, SEQ": T$<2>="PRG" 

15 TSOI^'USR": T$(4)="REL M 
20 CLOSE150PENi5,8,15,"I" 

25 0PEN2,8,2 J ,, $":REM APERTURA FILE DIRECTORY 
30 0PEN4,4:REM APERTURA STAMPANTE 

35 PRINTM4,"STAMPA DIRECTORY COME FILE SEQUENZIALE" 
40 PRINTU4 

45 REM LETTURA PRIMI 2 BYTE 
50 1=2 :GOSUB230 
55 REM LETTURA BAM 
60 FORK=l TO 35 : PRINTM4, K; “ 

65 I=4:GOSUB230 
70 NEXTKPRINTH4 
75 REM LETTURA NOME DISCO 
80 1 = 18 :GOSUB205 
85 PRINTM4,N$;" 

90 REM LETTURA ID 
95 I=2:GOSUB205PRINTtt4,N$ 

100 REM LETTURA ALTRI 7 BYTE 
105 1=7:GOSUB230 
110 PRINTM4 

115 REM LETTURA ALTRI 85 BYTE 

120 F0RK=1T085:GETM2,A$:NEXTK 

125 PRINTH4 

130 F0RJ=lTO8 

135 GETH2,T$,A$,B$ 

140 IFSTTHENCL0SE2:CL0SE4:CLOSE15: STOP 
145 IFTS=""THENT$=CHRS(128) 

150 1=16 
155 G0SUB205 

160 PRINT#4,T$<ASC<T$)-128>;" 

165 PRINTH4,ASC<AS+CHRS<0)); ASC<BS+CHRS(0)); 

170 PRINTM4,NS 
175 1=3 :G0SUB238 
180 F0RK=1T04GETH2,A$NEXTK 
185 1=2:GOSUB230 
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190 I=2:GOSUB230 

195 IFJC8THENGETH2,A$, A$ 

200 NEXTJ:GOTO130 

205 REM COSTRUZIONE STRINGA 

210 N$ = ,,,, -FORL = iTOI 

215 GETtt2,L$ 

220 IFLSOCHR$(96)THENIFI.SOCHR$<1G0>THENNS = NS + LS 
225 NEXTL: RETURN 

230 REM LETTURA E STAMPA GRUPPO BVTE 
235 FORL = iTOI 

240 GET#2,A$PRINT#4,ASC<A$+CHR$<0>>; 

245 NEXTL:PRINTW4 
250 RETURN 

READV. 


CONTRDISCO controlla ae sono registrati bene sul disco 1 file di 
tipo SEQ e PRG, ma non controlla i file di altro tipo. Ogni vol¬ 
ta che controlla un blocco fa apparire un pallino sul video. Se 
un file non e' in ordine ti chiede se vuoi cancellarlo. Se 
rispondi S, lo cancella e esegue il comando VALIDATE, se rispon¬ 
di N si ferma. 


5 REM CONTRDISCO 

10 REM —COSTANTI E UARIABILI — 

15 MI S = ‘ ‘ inm mommm « uh m 1 ■ FI =0 
20 M2$ = "t!]FILE NON CORRETTO CU" 

25 M3$="IUTUTT0 IN ORDINE . . .IU SPERO !" 

30 REM —APRE CANALE 15 CON LFH=i— 

35 0PENl,8,i5,"I" 

40 REM —APRE CANALE 2 PER DIRECTORY — 

45 0PEN2,8,2,"W" 

50 REM —APRE CANALE 3 PER FILE — 

55 0PEN3,8,3,"tt" 

60 REM —FUNZ. PER PUNTARE ENTRATE DIRECTORY— 

65 DEFFNFCX)=2+32*X 

70 REM —PRIMO BLOCCO DIRECTORY— 

75 TD=18:SD=1:GOSUB350 

80 REM —ELABORA UNA ENTRATA— 

85 FIS= ,,M :CB=0 

90 REM —PUNTATORE A INIZIO ENTRATA— 

95 PRINTS1 ,"B-P:2,"FNF<FI) 

100 REM —LEGGE TIPO FILE CHE UA IN TY— 

105 GETH2,A$:G0SUB385:TV=ASC<AS) 

110 REM —LEGGE IND. INIZIO FILE, TR E SC— 

115 GET#2,A$,B$:GOSUB380 TR=ASC<AS>:SC=ASC<BS) 
120 REM —LEGGE NOME FILE— 

125 F0RI=1T016:GET#2,AS FIS=FIS+AS 

130 IFAS=CHR$<160>THENFI$=LEFT$<FI$, 1-1): 1=16 

135 NEXT 
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140 REM --PUNTATORE AI 2 BVTE CONT. BLOCCHI 
145 PRINTM1,"B-P:2,‘‘FNF<FI)+28:GETW2,AS,8$ 
150 REM —NB=UCONTATORE BLOCCHI — 

155 GOSUB380:NB=ASC<A$ >+ASC(B$)*256 
160 REM —CONTROLLO TIPO FILE 1 0 2— 

165 IFTVO0THENTV=TV-128 

170 IFTVO2ANDTVO1THEN310 

175 IFTV02ANDTV01THEN85 

180 REM --CONTROLLO BLOCCHI FILE— 

185 PRINT ,, Ll!lJ!i "MlS 

190 PRINT"CONTROLLO FILE" : PRINTMlS M L»I»Lil M 

195 PRINTTAB<18>FIS*W 

200 REM —LEGGE BLOCCO FILE— 

205 PRINTttl, "B-R:3,0,'"TR,SC 

210 REM —LEGGE BYTE CONCATENAMENTO— 

215 PRINTttl,"B-P: 3,0“ 

220 CB=CB«l:GETt*3 J A$,B$:GOSUB380 

225 REI1 —STAMPA UN PALLINO PER OGNI BLOCCO 

230 TR=ASC<A$>:SC=ASC<B$>:PRINT"*"; 

235 IFTRO0THEN205 

240 REM —CONTROLLO LUNGHEZZA FILE— 

245 IFCB=NBTHEN325 

250 REM —CICLO DI ATTESA — 

255 IFCB=NBTHENFORI=1TO250:NEXTI:G0T085 
260 PRINT:PRINTM2$FI$ 

265 REM —SE CONTEGGIO ERRATO— 

270 PRINT"[!]DEUO AZZERARE ? <13S"/13H5>" 

275 GETA$: IFAS= ,,, \THEN275 

280 IFAS=“N"THEN400 

285 IFA$0"S“THEN275 

298 PRINT"tJAZZERAMENTO E UALIDATE” 

295 PRINTM1, "S : "FIS : PRINTN1, "V 

300 CLOSE3:CL0SE2:CLOSE1:RUN 

305 REM —PASSA A PROSSIMA ENTRATA— 

310 FI=FI+1:IFFI=8THENGOSUB350:FI=0 
315 G0T0175 

320 REM —TUTTO BENE— 

325 PRINT:PRINTTAB<9>"l£[fiU0K": FI=FI+1 
330 IFFI=8THENGOSUB350:FI=0 
335 G0T0255 

340 REM —RLìilNE LETTURA DIRECTORY— 

345 REM —TD=0 A FINE DIRECTORY— 

350 IFTD=0THENPRINTM3S: GOTO400 
355 REM —LETTURA BLOCCO— 

360 AS=”":BS 3 "":PRINTM1,"U1: 2,0";TD; SD 
365 GETH2.AS.BS:GOSUB380 
370 TD=ASC<AS):SD=ASC<BS): RETURN 
375 REM --SISTEMAZIONE BYTE LETTI— 

380 IFBS=""THENBS=CHRS(0> 

385 IFA$= ,,,, THENA$=CHR$<0> 

390 RETURN 

395 REM —CHIUSURA FILE — 

400 CLOSE3:CL0SE2:CLOSE1: STOP 



TRAC/SET e' una modifica di DISPLAY T&S e consente di visua¬ 
lizzare gruppi di settori concatenati e settori isolati. 


5 REM TRAC/SET 

10 RC$ = " UU5IDE0 UIIIIIIIIO ULÌP5RIHTER" 

15 RD$=" [lUVIDEO ■" 

28 RE$=" KLJPR INTERE” 

25 PRIHr LJM _" 

30 PRINT" CONTENUTO BLOCCHI 

35 PRINT”-- 

40 REM COSTANTI 
45 SP$ = ” ”:NL$=CHRS<0) 

50 HX$="0123456789ABCDEF” 

55 FS$="":F0RI=64 TO 95 
60 FS$=FSS*"ld”+CHR$< I ) + "■” : NEXT I 
65 SS$=” 11 - FOR 1 = 192 TO 223 

70 SS$ = SS$+”13” + CHR$<I >+“■”: NEXT I 
75 DIM A$<15>,NB<2) 

80 DS= ,, 0" 

85 PRINTRCS 

90 GETJJS : IF JJ^”" THEN90 
95 IF JJ$="V”THENPRINTRD$ 

100 IF JJ$=”P"THENPRINTR£S:0PEN4,4 

110 GOSUB450 

115 REM CARICA BUFFER 

120 INPUT"[>U|TRACCIA, SETTORE”; T,S 

125 IF T=0 OR T>35 THEN355 

130 IF JJ$="U" THENGOSUB360:G0T0135 

131 PRINTH4:PRINTW4,"TRACCIA"T” SETT0RE"S:PRINT» 
4 

135 PRINTW15,”U1: 2,”D$;T;S:GOSUB335 
140 PRINTt»15,"B-P:2,0" 

145 REM LEGGE BYTE 0 

150 GET»2,AS<0):IFA$<0>=” ,, THENA$<0>=NL$ 

155 PRINTW15,”B-P: 2,1” 

160 IF JJS="U"THEN170 
165 IF JJ$="P"THEN230 
170 REM VIDEO 
175 K=1:NB<1>=ASC<AS<0>> 

180 FORJ=0TOG3:IFJ=32THENG0SUB375:G0T0365 
185 FOR I=K TO 3 

190 GET»2.AS<I>:IF AS<I>="" THEN A$<I>=NL$ 

195 IF K=i AND I<2 THEN NB<2)=ASC<A$CI>> 

200 NEXT I :K=0 

205 A$="":BS=":”:N=J*4:GOSUB 405:AS = AS + " 

210 FOR 1=0 TO 3 :N=ASC<A$(I>>:GOSUB 405 
215 C$=A$<I) GOSUB 425:B$=B$+C$ 

220 NEXT I IF JJ$="V" THEN PRINTASBS 

225 NEXT J:G0T0295 

230 REM PRINTER 

235 K=1:NB(1)=ASC<AS<0)> 

240 FOR J=0 TO 15 
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245 FOR I=K TO 15 

250 GET#2,AS<I> : IF A$<I>="" THEH A$<I>=NLS 
255 IF K=1 AHO I<2 THEH HB(2)=ASC(AS<I)> 

260 NEXT I:K=0 

265 A«= ,,,, :BS= ,, : , ‘ :N=J«16:GOSUB 405 : AS=AS+" : " 

270 FOR 1=0 TO 15:H=ASC<AS(I>> :GOSUB 405 
275 C$=A$<I>:GOSUB 425:B$=B$+C$ 

280 HEXT 1 

285 IF JJ$= ,, P” THEH PRINTM4,ASBS 

290 HEXT J:G0T0295 

295 REM SUCCESSIMO BLOCCO 

300 PRIHT"TRACCI A/SETT . SEGUENTE"NB(1)NB(2) 

305 PRINT*‘DESIDERI PROSEGUIRE S/H 

310 GET Z$:IF Z$=‘‘‘‘ THEH310 
315 IF Z$C>“S“ THEH325 

320 T=NB<1):S=HB<2):G0SUB445:GOSUB450-G0T0125 
325 IF Z$="H" THEH G0SUB445 GOSUB450:GOTOÌ20 
330 GOTO 310 
335 REM ROUTINE ERRORE 

340 INPUT#15,EN,EM$,ET,ES:IF EH=0 THEH RETURH 
345 PRIHT'UERRORE DISCOS"EN,EMS,ET,ES 
350 END 

355 PRINTM15<“I“DS G0SUB445:CL0SE4:PRINT”END“: EH 
D 

360 PRIHT** L‘>BI TRACCI A**T‘‘ SETTORE••S ,, l!J , • : RETURH 
365 IF Z$= ,, N ,, THEH J=80: GOTO 225 
370 G0T0185 

375 REM HESS. CONTINUAZIONE 
380 PRINT-tilUliCONTINUOlS/N)" 

385 GETZS - IF Z$=—‘ THEN 385 
390 IF ZS^’N" THEN RETURN 
395 IF ZSO"S“ THEN 385 

400 PRINT'tTRACCIA" T " SETTORE"S: RETURN 
405 REM CONU.HEX 

410 A1=1NT<NZ16>:A$=AS+MID$<HXS,Ai+i,1> 

415 A2=INT<N-16*A1>:A$=A$+MID$<HX$,A2+1,1> 

420 A$=A$+SP$:RETURH 
425 REMCONU.ASCII 

438 IF ASC<C$><32 THEN C$=" “: RETURN 

435 IF ASC<C$><128 OR ASC<C$>>159 THEN RETURN 

440 C$=NID$<SS$,3»<ASC<C$>-127>,3): RETURN 

445 CL0SE2:CL0SE15:RETURN 

450 0PEN15,8,15,"I"+D$:GOSUB335 

455 0PEN2,8,2, ••#»“ : G0SUB335 : RETURN 


SIST/DISCO controlla il dischetto per trovare se ci sono settori 
rovinati; esso e' una modifica di CHECK DISK, ma risulta molto 
piu' veloce, infatti abbiamo ottimizzato l'allocazione dei bloc¬ 
chi, Alla fine il dischetto risulta con allocati nella BAM i set¬ 
tori rovinati, ma non nella directory, quindi può' essere usato, 
ma non puoi eseguire i comandi VALIDATE o COLLECT. 
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5 REM SIST/DISCO 

10 REM TABELLA TRACCE E SETTORI GUASTI 
15 DIMK100) DIMS<100> 

20 DIMG1<21),G2(19),63(18),G4(17> 

25 OATA0 # 10,20,8,18,6,16,4,14,2,12,9,19 
30 DATA7,17,5,15,3,13,1,11 
35 DATA0.11,1,12,2,13,3,14,4,15,5,16,6,17 
40 DATA7,10,8,9,10 

45 DATAO,10,1,11,2,12,3,13,4,14,5,15 

50 DATA6,16,7,17,0,9 

55 DATA0,10,1,11,2,12,3,13,4,14,5 

60 DATA15,6,16,7,8,9 

65 F0RJ=1T021-READG1(J>:NEXTJ 

70 F0RJ=1T01S:READG2<J>:NEXTJ 

75 F0RJ=1T018:READG3(J) NEXTJ 

80 FORJ=1T017:READG4<J>:NEXTJ 

85 RC$=" BLOCCHI GUASTI SONO STATI ALLOCATI" 

90 RD$="l!l!iBLOCCHI GUASTI”: RE$="TRACCIA" 

95 RFS="SETTORE” 

100 PRINT" (i'L'I'] -” 

105 PRINT" SIST/DISCO 

110 PRINT"-•* 

115 0PEN15,8,15 
120 PRINTM15,"U0" 

125 N‘/=RND<TI)*255 

130 A4="":FORI=1T0255 

135 A$=A$+CHRS(255AND(I+NX>) NEXT 

140 OPEN2,8,2, "tt" : G0SUB325 

145 PRINT:PRINTN2,A$; 

150 J=1 

155 F0RT=1T017:FORL=1T021 

160 S=G1(L>:GOSUB200:NEXTL:NEXTT 

165 F0RT=18T024:F0RL=1T019 

170 S=G2( L ) :GOSUB200:NEXTL:NEXTT 

175 FORT=25TO30:FORL=1TO18 

180 S=G3(L):GOSUB200:NEXTL:NEXTT 

185 F0RT=31T035:F0RL=1T017 

190 S=G4(L):GOSUB200:NEXTL:NEXTT 

195 GOTO260 

200 PRINT«15,”B-A:0"T;S 
205 INPUTM15,EN,EM$,ET,ES 
210 IFEN=0THEN225 
215 IFEN=65THENRETURN 
220 STOP 

225 PRINT#i5,"U2:2,0"T;S 

230 NB=NB+1 

235 INPUTM15,EN,EMS,ES,ET 

240 IF EN=0THENRETURN 

245 T(J)=T:S(J)=S:J=J+i 

250 PRINT"L<L<aBLOCCHI GUASTI : "; T; S 

255 RETURN 

260 PRINTM15,"U0" 

265 G0SUB325 
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270 CL0SE2 

275 IFJ=1THEN350 

280 0PEN2,8,2,"W" 

285 PRINTRD$,RE$,RF$ 

295 F0RI=1T0J-1 

300 PRIHT»15, ,, B-ft:0”T<I>;S<I) 

305 PRINT,,T<I>,S<I> 

310 HEXT 

315 PRINT"!!]"; J-1;RC$ 

320 CL0SE2:CL0SE15END 

325 INPUTM15, EN, E MS, ET,ES 

330 IF EN=0 THEH RETURN 

335 PRINT"l!l!]jlERR0REW"EN, EM$ ; ET ; ES"G" 

340 PRINTN15,“IO" 

345 RETURN 

350 PRINT ,, UiMJLliTUTTO BENE! " : CL0SE15 : END 


NUMBUFFER serve per trovare quanti buffer dell'unita' 1541 pos¬ 
sono essere aperti contemporaneamente in modo diretto e quali so¬ 
no i loro numeri. 

5 REM NUMBUFFER 
10 OPEN15,8 j15 4 "I" 

15 INPUT"QUANTI BUFFER";N 
20 «$="":B$="":C$ = M ":D$ = “":E$=”" 

25 ONNGOTO50, 45, 40', 35,30 

30 0PEN2,8,2,:GOSUB115:GETM2,E$:G0SUB115 
35 0PEN3,8,3,:G0SUB115:GET#3,D$:G0SUB115 
40 OPEN4,8,4,"#*":G0SUB115:GETM4,0$:G0SUB115 
45 0PEN5,8,5,"♦»":GOSUB115:GETM5, BS :G0SUB115 
50 OPEN6,8,6,"##":G0SUB115:GETM6,A$:G0SUB115 
55 ONNGOTO100,90,80,70,60 
60 IFES=" ,, THENES=CHRS<0) 

65 PRINTASC<E$>:CLOSE2 
70 IFDS= ,,,, THEND$=CHR$<0> 

75 PRINTASC(DS):CL0SE3 
80 IFC$ =,,,, THEHC$=CHR$<0 ) 

85 PRINTASC(C$):CL0SE4 
90 IFB$=""THENB$=CHR$<0) 

95 PRINTASC<B$):CL0SE5 
100 IFA$= ,,,, THENA$=CHRS<0> 

105 PRINTASC<A$):CL0SE6 
110 CL0SE15: STOP 
115 INPUTM15,EN,EM$,ET,ES 
120 PRINTEN;EMS;ET;ES 
125 RETURN 


INDBUFFER consente di vedere quali indirizzi vengono assegnati ad 
ogni buffer nella RAM dell'unita' 1541. 
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5 REM INDBUFFER 

10 DIMR$(8,7):F0RK=1T08F0RI=1T07 

15 R$<K,I)="":NEXTI:NEXTK 

16 M1S=“IND. IN MEMORIA DEL BUFFER: " 

20 OPENT^PRINTttT.-RISULTATI INDBUFFER" 

25 0PEN15,8,i5,”I" 

30 INPUT"QUANTI BUFFER";N:PRINTH7 
35 PRINTN7,N;" BUFFER":PRINTH7 
40 A$=“" : B$="" : C$ = "" : DS="” : ES="" 

45 ONNGOTO70,65,60,55,50 

50 0PEN2,8,2 j : GOSUB270 : GETM2,E$ - GOSUB270 
55 0PEN3,8,3,:GOSUB270:GETM3,DS:GOSUB270 
60 OPEN4,8,4,"»":GOSUB270:GETM4,C$:GOSUB270 
65 0PEN5,8,5,"#":G0SUB27B:GETM5,BS:GOSUB270 
70 0PEN6,8,6,"#":GOSUB270:GETM6,A$:GOSUB270 
75 PRINTM7,"NUMERI DEI BUFFER: 

80 ONHGOTO165,i45,i25,105,85 
85 IFE$=""THENES=CHRS(0> 

90 PRINTM7,ASC(ES); 

95 PRINTM15,“B-P:"2;1 

100 PRINTM2,"22222";:GOSUB270 

105 IFDS=""THEND$=CHR$<0> 

110 PRINTM7,ASC<D$); 

115 PRINTM15,“B—P:"3;1 

120 PRINTM3,"33333";:GOSUB270 

125 IFCS=""THENC$=CHR6<0> 

130 PRINTM7,ASC(CS>; 

135 PRINTM15,"B-P:"4;1 

148 PRINTM4,"44444";:GOSUB270 

145 IFB$=""THENB$=CHR$<0> 

150 PRINTM7,ASC(BS); 

155 PRINTM15,"B-P:"5;1 

160 PRINTM5,"55555";:GOSUB270 

165 IFAS=""THENAS=CHR$<0> 

170 PRINTM7,ASC<A$); 

175 PRINTM15,"B-P:"6;i 

180 PRINTM6,"66666"; :GOSUB270 

185 PRINTM7 

190 F0RK=1T08M=K-1 

195 FORI = 1T07'-L = I-1 

200 PRINTM15,"M-R"CHRS<L)CHR$CM> 

205 GETM15,R$<K,I) 

210 NEXTI 
215 NEXTK 

220 F0RK=1T08 F0RI=1T07 

225 IFR$<K,I>=""THENRS<K,I>=CHRS<0) 

230 NEXTI:NEXTK 
235 F0RK=iT08 

240 PRINT#7,Mi$;STR$<<K-l>*256> 

245 PRINTW7,"PRIMI 8 BVTE DEL BUFFER:"; 

250 F0RI=1T07 

255 PRINT#7,R$<K,I);:NEXTI:PRINT»7 
260 NEXTK 
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265 FORK=iTO?:CLOSEK:MEXTK:CL0SEi5:STOP 
278 INPUTttiS, EH, EM$, ET, ES 
275 PRINTEN; EM$ ; ET ; ES 
288 RETURN 


CONTRIND11 consente di vedere come il sistema assegna gli indi¬ 
rizzi di traccia e settore al file sequenziale INDI’! , usato come 
indice degli archivi trattati nei precedenti paragrafi. 

10 REM CONTRINDI1 
20 0PEN15 

30 0PEN2,8,2, ,, INDIi,S,R" 

35 OPEN4,4: PRINTW4,"CONTROLLO INDii":PRINTW4 
40 K—0 : 1—0 

45 INPUTtt2,A$,T,S:TS=ST:K=K+i 
50 PRINTH4, K ; T ; S ; " 

60 1=1+1:IFI=5THENPRINTN4:1=0 

70 IFTS=64THENPRINTH4:CL0SE2:CL0SE4:CL0SE15: STOP 
80 G0T045 


ALLOCA mostra come devono essere correttamente allocati i bloc¬ 
chi in modo diretto senza invadere la traccia 18, che viene usa¬ 
ta per la directory. 


1000 REM ALLOCA 

1005 REM TRACCIA TX, SETTORE SX 

1010 REM SI SUPPONE APERTO UN CANALE DATI 

1015 REM SI SUPPONE APERTO IL CANALE 15 

1020 REM SI SUPPONE CHE SX SIA COMPATIBILE CON T 

X 

1025 REM SCARTA LA TRACCIA 18 

1030 PRINTH15,"B-A: 0";TS;SX 

1035 INPUTM15,EN,EM$,ET,ES 

1040 IFEN=0THEN RETURN 

1045 IFEN065THEN STOP 

1050 IFET=18THENTX=19:SX=0:6OTO1030 

1055 TX=ET:SX=ES:GOTO1030 


221 




CAPITOLO 7 


ARCHITETTURA DEL SISTEMA 


7.1 INTRODUZIONE 

In questo capitolo affrontiamo un argomento avanzato; vogliamo 
descrivere il funzionamento del calcolatore nelle sue singole 
parti, cercando di renderlo comprensibile anche a chi non ha mai 
applicato CIRCUITI INTEGRATI, e non ha conoscenze di ELETTRONICA 
DIGITALE. Finora abbiamo visto il calcolatore come un apparec¬ 
chio che, quasi per magia, comprende un linguaggio che assomi¬ 
glia un po' alla lingua inglese, il BASIC. Qui trattiamo gli 
argomenti che occorre conoscere per essere in grado di adoperare 
il LINGUAGGIO MACCHINA, la cui conoscenza e' istruttiva ed assie¬ 
me utile per risolvere problemi di velocita' e di gestione diret¬ 
ta delle periferiche. 

Il tuo COMMODORE PLUS-4 possiede al suo interno diversi circuiti 
integrati; dei piu' importanti cercheremo di dare una descri¬ 

zione soddisfacente, ma consapevolmente non completa per non 
disperdere in dettagli l'argomento. 

Il COMMODORE PLUS- 1 !, come tutti i calcolatori, e' costituito da 

circuiti integrati, collegati tra loro mediante connessioni 

elettriche. Ogni circuito integrato e' costruito in modo da svol¬ 
gere determinate funzioni; il costruttore generalmente fornisce, 
a richiesta, la documentazione necessaria per applicarlo. Nel 
COMMODORE PLUS- 1 ! alcuni integrati sono stati costruiti apposta 
dalla COMMODORE, e questa soluzione ha permesso di ridurre 

notevolmente il numero di componenti necessari per il funzio¬ 
namento del calcolatore. Le principali componenti di un calco¬ 
latore sono tre: 

1) . UNITA' CENTRALE DI ELABORAZIONE (CPU, che in inglese signi¬ 
fica CENTRAL PROCESSING UNIT) 

2) . MEMORIA 

3) . DISPOSITIVI DI INGRESSO/USCITA (I/O, cioè' INPUT/OUTPUT) 

La potenza di un calcolatore dipende dalla potenza di queste tre 
parti. 
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7.2 LA MEMORIA 


LA MEMORIA e' concettualmente la piu' semplice delle tre parti. 
Esistono nel COMMODORE PLUS- 1 ) due tipi di memoria: a sola let¬ 
tura (ROM, Read Only Memory) e a lettura e scrittura (RAM). Come 
dice il nome stesso, la MEMORIA e' un dispositivo che ha la 
caratteristica di ricordare, e difatti ricorda i bit, che sono 
l'unita' di informazione. Una cella (byte) di memoria e' 
l'insieme di 8 bit: nel COMMODORE PLUS- 1 ) ci sono 65536 celle di 
memoria ROM e 65536 celle di memoria RAM. 

La memoria ROM e' stata costruita con i bit a un valore prefis¬ 
sato, in modo tale da non essere alterabile nel tempo. La ROM 
contiene tutto il SISTEMA OPERATIVO, cioè' l’insieme delle rou¬ 
tine in linguaggio macchina che occorrono per comunicare con le 
periferiche (tastiera, video, floppy disk, registratore, stampan¬ 
te, ecc), l'interprete BASIC, cioè' quel programma, scrìtto in 
linguaggio macchina, che, appoggiandosi alle routine del SISTEMA 
OPERATIVO, interpreta i comandi impartiti da tastiera, pone in 
memoria le linee introdotte, ed esegue le istruzioni memoriz¬ 
zate, e i 3 + 1 programmi applicativi. 

La memoria RAM ha la caratteristica di essere alterabile: ogni 
byte di memoria RAM può' cioè' essere scritto o letto, a seconda 
di un segnale, controllato dalla CPU (il segnale R/W, Read/Wri- 
te). Quando questo segnale e' basso, l'accesso alla memoria vie¬ 
ne effettuato in scrittura, altrimenti in lettura. La RAM e' usa¬ 
ta per memorizzare i programmi dell'utente, le variabili, le 
informazioni da visualizzare sullo schermo ecc. 

Nella Figura 7.1 e' illustrato il collegamento tra CPU e memo¬ 
ria. Per leggere un byte di memoria (vedi Figura 7.2) la CPU 
presenta sui 16 bit di indirizzo l'indirizzo del byte che vuole 



Figura 7.1 Collegamento tra CPU e memoria 
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leggere, pone a 1 il segnale R/W, attende una transizione del 
segnale di temporizzazione (CLOCK) e legge il dato dagli 8 bit 
dedicati ai dati. 




A0 - A15 

R/WO 

X 

<J>0 CLOCK 

X 

INDIRIZZO VALIDO 



/ 




X 




DATO 

VALIDO 

TEMPO DI ACCESSO 





Figura 7.2 Ciclo di lettura da memoria 


Per scrivere in memoria (vedi Figura 7-3) la CPU presenta sul 
DATA BUS (8 linee dedicate ai dati) il dato da scrivere, sul BUS 
INDIRIZZI (16 linee dedicate agli indirizzi) l'indirizzo del 
byte in cui memorizzare il dato e pone basso il segnale R/W. Do¬ 
po una transizione del segnale di CLOCK la CPU considera compiu¬ 
ta la scrittura. 


7-3 L'UNITA' CENTRALE DI ELABORAZIONE (CPU) 

La CPU e' considerata il CUORE del calcolatore, perche' esegue il 
programma, controlla i dispositivi di I/O e di fatto produce 
l'elaborazione dei dati secondo le istruzioni del programma. Nel 
COMMODORE PLUS-4 la CPU e' un circuito integrato con 40 piedini, 
cioè' 40 punti di collegamento con l'esterno. Questo integrato 
porta la sigla 7501, ed e' stato progettato apposta per i calco¬ 
latori COMMODORE 16 e PLUS-4. In realta' deriva da un’altra CPU, 
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><; 

INDIRIZZO VALIDO 

A0 - A15 

\ 


R/W 




_x 

DATO VALIDO 

^ DO - D7 



<t> 0 CLOCK 





Figura 7.3 Ciclo di scrittura in memoria 


la famosa 6502, da cui la 7501 differisce per alcuni dettagli, ma 
della quale conserva la stessa architettura e lo stesso set di 
istruzioni. 

Prima di vedere 1 1 architettura di questa CPU descriviamo breve¬ 
mente i 40 segnali che vi fanno capo. 



RES 

R/W 

DO 

DI 

D2 

D3 

D4 

D5 

D6 

D7 

PO 

PI 

P 2 

P3 

PA 

P6 

P7 

GATE IN 

A15 

AIA 


Figura 7.4 Zoccolatura della CPU 7501 
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Nella Figura 7.H e' riportata la ZOCCOLATURA della CPU 7501 . 

. 1- *0 in. Ingresso. Da questo piedino la CPU riceve la 
temporizzazione (CLOCK) necessaria per il funzionamento. E’ un' 
ONDA QUADRA della frequenza selezionabile di 890000 o 1780000 
hertz. Tutte le operazioni della CPU sono legate al CLOCK: quan¬ 
do il CLOCK e' alto, la CPU accede a memoria, quando e' basso la 
CPU "pensa", cioè' esegue le commutazioni necessarie per esegui¬ 
re l'istruzione, esegue calcoli, e non usa la memoria (vedi Figu¬ 
ra 7.5). 

.2- RDY. READY. Ingresso. Quando questo ingresso e' basso la CPU 
si arresta, e riparte quando RDY ritorna alto. 

.3” IRQ. Interrupt ReQuest, ingresso. Quando si verifica una 
transizione da alto a basso di questo segnale la CPU "sente" una 
richiesta di interruzione, e va ad eseguire una speciale routine 
di servizio dell'interrupt (operazione simile alla chiamata e 
all'esecuzione di un sottoprogramma da programma, solo che qui la 
chiamata avviene per effetto di questo segnale), alla fine della 
quale il programma riprende. 

.4- AEC. Address Enable Control, ingresso. Quando questo segna¬ 
le viene posto basso la CPU non presenta gli indirizzi sul BUS 
INDIRIZZI. Ciò' permette ad altri dispositivi di accedere alla 
memoria escludendo la CPU. 

.5- VCC. Ingresso. Da questo piedino il circuito riceve 
l'alimentazione necessaria per funzionare. La tensione di alimen¬ 
tazione e' 5 volt in corrente continua, e la CPU assorbe circa 
125 milliampere. 

.6-19 e 21-22. ADDRESS BUS, uscite. Questi 16 piedini formano il 
BUS INDIRIZZI, cioè' la combinazione dei livelli logici di que¬ 
sti 16 bit individua uno tra i 2~16 (65536) possibili byte di 
memoria indirizzabili. 

.20- GND, ingresso. E' il piedino di MASSA, da dove la CPU rice¬ 
ve il negativo di alimentazione, e rispetto al quale vanno misu¬ 
rati i livelli di tutti i segnali. 

.23- GATE IN, ingresso. 

.211-30. P0-P7, ingressi o uscite, programmabili. Questi 7 pie¬ 
dini fungono da I/O, e sono usati per collegare il calcolatore 
con il REGISTRATORE A CASSETTE, il FLOPPY DISK e la STAMPANTE. 

.31“38 DATA BUS, ingressi e uscite. Su questi 8 BIT vengono 
scambiate le informazioni tra CPU e MEMORIA. Durante un ciclo di 
scrittura, sono uscite per la CPU, e ingressi per le memorie, 
mentre in un ciclo di lettura dalla memoria queste linee diven¬ 
tano uscite per la memoria e ingresso per la CPU. 

.39- R/W, Read/Write, uscita. Questo segnale indica se il ciclo 
corrente di accesso alla memoria deve essere effettuato in let¬ 
tura (livello ALTO) o in scrittura (livello BASSO). 

•HO RES, ingresso, RESet. Questa linea e' sempre alta, durante 
il funzionamento del calcolatore. Quando viene posta bassa, la 
CPU arresta il programma in corso, e va ad eseguire la routine di 
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ELABORAZIONE 
SENZA UTILIZZO 
DELLA MEMORIA 


Figura 7.5 Segnale $0, il clock del sistema 

inizializzazione. Il pulsante grigio sul fianco del COMMO¬ 
DORE PLUS-4 e' collegato alla linea di RESET. La linea di RESET 
viene posta bassa automaticamente all’accensione del calcolatore 
per circa un secondo. 

7.4 I DISPOSITIVI DI INGRESSO/USCITA (I/O) 

I dispositivi di INGRESSO/USCITA sono tutti quei dispositivi che 
collegano la CPU con l'esterno. La CPU piu' veloce del mondo, 
dotata della memoria piu' capace del mondo, sarebbe del tutto 
inutilizzabile se non fosse collegata ad almeno un dispositivo di 
ingresso e a un dispositivo di uscita. Immagina il tuo COMMO¬ 
DORE PLUS-4 privo di tastiera, video, suono, registratore a 
cassetta, stampante, floppy disk e di tutti gli altri dispo¬ 
sitivi di I/O: non servirebbe a niente. Nei paragrafi che seguo¬ 
no non parliamo dei dispositivi fisici che sono o possono essere 
attaccati al calcolatore, ma vediamo come funziona il colle^ 
gamento tra CPU e dispositivi. Premettiamo che la CPU 7501 non 
prevede un collegamento particolare con i dispositivi di I/O; per 
questo tali dispositivi vengono collegati in modo da apparire co¬ 
me celle di memoria. Una porta di I/O e' come una cella di memo¬ 
ria "aperta" (con i bit collegati a piedini), che può' essere 
usata in ingresso o in uscita, il cui stato può' essere letto (in 
ingresso) come un normale byte di memoria, o può' apparire , (in 
uscita) ad altre parti del calcolatore. Generalmente una porta di 
I/O ha 8 bit, cosi' come sono 8 i bit di un byte di memoria. 

7.5 LA TASTIERA 

Nella tastiera del COMMODORE PLUS-4 vi sono 67 tasti, ma poiché' 
i due tasti SHIFT e SHIFT LOCK, come anche i due CONTROL, sono 
collegati in parallelo, vi sono 64 tasti indipendenti. Si potreb¬ 
be pensare che vi siano 8 porte di I/O da 8 bit, cioè' che ognu¬ 
no dei 64 tasti sia collegato a 1 bit di ingresso. Questa solu¬ 
zione non sarebbe stata la piu' economica, e perciò' la tastiera 



e' stata organizzata in una matrice di 8 righe e 8 colonne, in 
cui i tasti collegano i fili orizzontali con quelli verticali 
(vedi Figura 7.6); una porta di uscita e' collegata alle righe, 
una porta di ingresso alle colonne. 



FD30 



Figura 7.6 Organizzazione della tastiera 


Per vedere se un tasto di una riga e' premuto, il SISTEMA 
OPERATIVO pone a 0 il bit della riga a cui quel tasto appar¬ 
tiene, a 1 i bit di tutte le altre righe, e legge dalla porta di 
ingresso lo stato delle colonne. Se qualcuno dei bit letti si 
trova a 0 allora vuol dire che il tasto corrispondente e' stato 
premuto, mentre gli ingressi delle colonne dove non sono premuti 
tasti vengono trovati nello stato logico 1 . Il programma che 
segue, TASTMAT, si appoggia al SISTEMA OPERATIVO e mostra come la 
tastiera sia organizzata a matrice: la matrice disegnata ha 8 
righe e 8 colonne: gli elementi della matrice sono quindi 6 1 ), e 
rappresentano ciascuno un tasto. Tenendone premuto uno vedi che 
un elemento della matrice cambia, e appare uno 0 al posto di un 
1 : nel programma infatti abbiamo rappresentato con 0 i tasti pre¬ 
muti e con 1 i tasti non premuti. 
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8 REM TASTMAT 

10 SCNCLR:PRINT" 01234567“:PRINT 
20 DIMD<7):FORI = 0TO7D<I> = 2tI NEXT 
30 00 :FORI=0TO7 

40 POKE2034,255-D(I ».SYS56176:A=PEEK< 2034) 

50 PRINTI;-FORJ=0TO7 

66 IFAANDD<J>THENPRINT ,, ±";:ELSEPRINT“0"; 

70 NEXT:PRINT:MEXT 

80 GETAS:A$=A$+" ":CHAR,16,5,A$ 

90 PRINTCHRS<19>:PRINT 
100 LOOP 

COMMENTO A TASTMAT. 

.10: Cancella lo schermo e stampa una riga 

.20: Crea il vettore D e lo riempie con le potenze del due, da 
2~0 a 2'7. E' un "trucco" per velocizzare il programma, poiché' 

11 calcolatore e' molto piu' rapido nell'accedere ad un elemento 
di un vettore che non nel calcolare un'elevamento a potenza. 

•30: Inizializza un ciclo DO e un ciclo FOR. Il ciclo DO ... LO¬ 
OP e' eseguito all'infinito, e FOR ... NEXT e' ripetuto 8 volte, 
e ogni volta analizza lo stato di ciascuna delle 8 righe di cui 
e' composta la tastiera. 

.40: Usa la routine del SISTEMA OPERATIVO che pone un byte nel 
registro di uscita, quello collegato alle 8 righe, e che ritorna 
lo stato del registro di ingresso, quello cioè' collegato alle 8 
colonne. Il contenuto del byte 2034 viene caricato nell'ac¬ 
cumulatore della CPU al momento dell’istruzione SYS, e alla fine 
della routine il contenuto dell'accumulatore viene posto nel byte 
2037. La routine del SISTEMA OPERATIVO, che inizia all'indirizzo 
56176, pone nel registro di uscita (righe) il contenuto dell'ac¬ 
cumulatore (il valore posto nel byte 2034 prima di eseguire la 
SYS, e che contiene tutti i bit a 1, tranne il bit di posizione 
I), e torna con l'accumulatore che contiene il valore del regi¬ 
stro di ingresso (colonne). Pone inoltre questo valore, che si 
trova ancora nel byte 2034, nella variabile A. 

.50: Si prepara a stampare nella riga che sta analizzando, e 
inizializza un ciclo da 0 a 7 che usa per controllare lo stato 
degli 8 bit del registro di ingresso. 

.60: Se il bit che analizza e' a 1, stampa 1, altrimenti stampa 
0, una volta per ciascun bit di ciascuna riga. 

.70: Chiude i due cicli FOR, e stampa un RETURN alla fine del 
primo ciclo. 

.80: Stampa il carattere premuto, nella posizione 16,5. Vengono 
stampati correttamente solo i tasti che rappresentano un carat¬ 
tere alfanumerico, e non quelli di controllo o di funzione. 

.90: Posiziona il cursore all'inizio della seconda riga: 
CHR$(19) infatti e' il carattere HOME. 

.100: Chiude incondizionatamente il ciclo DO ... LOOP che parte 
dalla linea 30. Avremmo potuto usare GOTO 30, ma DO ... LOOP e' 
un'istruzione piu' elegante e piu' rapida da eseguire. 
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La scansione della tastiera viene effettuata automaticamente dal 
SISTEMA OPERATIVO ogni cinquantesimo di secondo, ed e' per que¬ 
sto che abbiamo fatto uso della routine in linguaggio macchina, 
anziché' effettuare da BASIC la scrittura nel registro di riga e 
la lettura dal registro di colonna: tra l'istruzione di scrit¬ 
tura e quella di lettura il SISTEMA OPERATIVO avrebbe effettuato 
probabilmente qualche scansione della tastiera, cambiando il 
contenuto del registro di riga. Terminiamo l’argomento indicando 
che il registro di uscita (quello che si usa per selezionare una 
riga) risponde all’indirizzo 64816 (FD30H), e quello di ingres¬ 
so, che si usa per vedere a quale colonna appartiene l'eventuale 
tasto premuto, risponde all'indirizzo 65288 (FF08H). La moda¬ 
lità' di funzionamento di questo registro e' un po' parti¬ 
colare: 

.occorre effettuare un'operazione di scrittura affinché' venga 
memorizzato lo stato delle linee esterne, 

.effettuando dopo Un ciclo di lettura e' possibile leggere lo 
stato delle linee esterne cosi' come era quando e' stato effet¬ 
tuato il ciclo di scrittura. 

Questa complicazione e' stata necessaria per effettuare il colle¬ 
gamento con i joystick. Puoi verificare questa particolarita', se 
conosci già' l'ASSEMBLER 6502, disassemblando la routine del 
SISTEMA OPERATIVO che noi richiamiamo nella linea 40 del program¬ 
ma TASTMAT, che parte dall'indirizzo 56176 (DB70H). Se non cono¬ 
sci ancora l'ASSEMBLER, puoi effettuare questa prova dopo aver 
letto il Capitolo 5. 


7.6 I JOYSTICK 

Al COMMODORE PLUS-4 si possono attaccare due joystick. Ogni 
joystick possiede 5 interruttori, 4 per le direzioni, alto, bas¬ 
so, sinistra, destra, e uno per il fuoco. 

Nella Figura 7.7a e' riportato lo schema del collegamento con i 
joystick. Il piedino 8 dello spinotto del joystick 1 e' colle¬ 
gato al bit 2 del BUS DATI attraverso un BUFFER che serve solo 
per potenziare il segnale, prima di inviarlo all'esterno. Per 
leggere lo stato degli interruttori del joystick 1 e' suffi¬ 
ciente un ciclo di scrittura nel registro 65288 (FF08H), tale che 
il bit 2 del dato scritto sia a 0, e II bit 1 sia a 1. In questo 
modo se uno dei tasti del joystick 1 e' premuto, la linea colle¬ 
gata al piedino corrispondente a quel tasto risulta collegata al 
bit 2 del BUS DATI. Se si preme il bottone del fuoco il piedino 6 
risulta collegato al bit 2. Poiché' siamo in un ciclo di scrit¬ 
tura, il bus dati contiene il valore del dato da scrivere, e in 
particolare il bit 2 contiene 0, come noi avevamo programmato. A 
questo punto il valore del registro di ingresso 65288 (FF08H) 
viene aggiornato in funzione dei suoi ingressi, e il bit 6 viene 
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REGISTRO FF08 


Figura 7.7a Collegamento con i Joystick 



Figura 7.7b Schema elettrico dei Joystick 


a trovarsi a 0, cosi' come e' a 0 il bit 2 del BUS DATI. 

Nella Figura 7.7b e' riportato lo schema elettrico dei joystick. 
Le posizioni diagonali risultano dalla pressione contemporanea di 
due tasti, ad esempio "alto" piu' "sinistra" indicano che la le¬ 
va del joystick e' posizionata in alto a sinistra. Nel Paragrafo 
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8.6 riportiamo una routine in linguaggio macchina che permette di 
leggere lo stato dei joystick. 


7.7 IL REGISTRATORE A CASSETTE 

Il registratore a cassette DATASSETTE 1531 si collega al COMMO¬ 
DORE PLUS-H attraverso uno spinotto a 7 connessioni. Ecco il 
significato di questi 7 punti di connessione: 

.1: MASSA. La massa del calcolatore va collegata con quella del 
registratore attraverso questa connessione. 

.2: +5V. Il registratore ha bisogno di un'alimentazione a 5 volt 
per i circuiti elettronici di pilotaggio della testina, che 
riceve da questo punto. 

•3: MOTORE. Da questo punto il motore del registratore riceve la 
corrente necessaria per il suo funzionamento, 9 volt in corrente 
continua non stabilizzati. Questa alimentazione può' venire 
interrotta dal calcolatore, per arrestare il motore. 

.4: LETTURA CASSETTA. Su questa linea vengono trasmessi i dati 
da registratore a CPU durante la lettura di dati dal nastro. 

.5: SCRITTURA CASSETTA. Durante la scrittura di dati su nastro 
magnetico i dati provenienti dalla CPU vengono trasmessi al 
registratore attraverso questa linea. 

.6: SENSORE. Questa linea e' collegata ai tasti del registra¬ 
tore, perche’ la CPU sia in grado di sapere se viene premuto 
qualche tasto. 

.7: MASSA. Anche questa linea e' collegata a massa, come la 
linea 1. 

Ora che abbiamo visto il significato delle linee che effettuano 
fisicamente il collegamento, vediamo come queste linee possono 
essere gestite. 

Il programma TASTREG, mostra come si possa leggere lo stato dei 
tasti del registratore: il bit 2 del byte di indirizzo 6 1 I78 1 I 
(FD10H) non e' un bit di memoria, ma un bit di ingresso, il cui 
stato rispecchia lo stato dei tasti del registratore. Se tale bit 
e' a livello logico 1 nessuno dei 3 tasti PLAY, REWIND, FFWD e' 
premuto, altrimenti almeno uno di essi e' premuto. 


0 REM TASTREG 
10 DO 

26 PRINT"PREMI UN TASTO SUL REGISTRATORE" 
30 DO : LOOP UHILE PEEK<64784>AND4 
40 PRINT"PREMI STOP SUL REGISTRATORE" 

50 DO LOOP UNTIL PEEK<64784>AHD4 
60 LOOP 
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COMMENTO A TASTREG 

.10: Inizializza un ciclo DO ... LOOP infinito, per ripetere 
all'infinito il programma. 

.20: Stampa un messaggio sul video, ad indicare che ora nessun 
tasto e' premuto. 

.30: Attende che venga premuto un tasto sul registratore. 

.40: Stampa un messaggio sul video, ad indicare che ora e' pre¬ 
muto almeno un tasto. 

50: Attende che vengano rilasciati tutti i tasti del registra¬ 
tore. 

60: Chiude il ciclo iniziato alla lìnea 10. 

Abbiamo visto come scoprire se un tasto del registratore e' pre¬ 
muto oppure no. Il programma che segue, MOTREG, mostra come si 
possa arrestare o far partire il motore. 

e REM MOTREG 

10 SCNCLR:PRIHT"PREMI PLAV SUL REGISTRATORE” 

20 PRINT:PRINT"A = MOTORE ACCESO" 

30 PRINT"S = MOTORE SPENTO" 

40 PRINT"F = FINE" 

50 GOSUB120 
60 GETKEVAS 

70 IFA$="A"THENGOSUB120 
80 IFA$="S"THEHGOSUB150 
90 IFA$O"F"THEN60 
100 GOSUB120 
110 END 

120 POKE0,PEEK(1)OR8 

130 CHAR.0,6,"MOTORE ACCESO" 

140 RETURN 

150 POKEO,PEEK(1)AND247 
160 CHAR,0,6,"MOTORE SPENTO" 

170 RETURN 


COMMENTO A MOTREG 

.10/40: Stampa la videata con il menu'. 

.50: All'inizio il motore viene acceso. 

.60: Attende la pressione di un tasto sulla tastiera. 

.70: Se il tasto premuto e' A accende il motore. 

.80: Se il tasto premuto e' S spegne il motore. 

.90: Se il tasto premuto non e' F torna alla linea 60. 

.100: Prima di finire, accende il motore. 

.110: Termina l'esecuzione del programma. 

.120/140: Subroutine che accende il motore ponendo a 1 il bit 3 
del byte 1 e stampa il messaggio "MOTORE ACCESO". Il motore e' 
collegato al bit 3 della porta di 1/0 inserita nella CPU 7501 . 
Tale porta di I/O risponde all'indirizzo 1. 
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150/170: Subroutine che spegne il motore azzerando il bit 3 del 
byte 1 e stampa il messaggio "MOTORE SPENTO". 

Dopo l'esecuzione del programma e' meglio eseguire un RESET del 
calcolatore. 

Con questi due programmi abbiamo visto come si gestiscono dei 
dettagli sul registratore, i tasti e il motore, e non vediamo co¬ 
me effettivamente sono gestiti i dati. Il software di gestione 
della linea seriale del registratore e' troppo complesso per 
poter produrre riguardo ad esso degli esempi semplici: possiamo 
tuttavia illustrare i tipi di segnali che viaggiano sulle linee 
dati seriali da é verso il 'registratore. Le due linee LETTURA 
CASSETTA e SCRITTURA CASSETTA sono due linee digitali normali, e 
su di esse viaggiano segnali che possono assumere il valore 0 o 
1 : chi e' esperto di registrazioni magnetiche forse trova un po' 
strano questo fatto, dato che ci si sarebbe potuti aspettare un 
segnale sinusoidale, in cui una frequenza corrispondesse al 
livello logico 1 e un'altra frequenza al livello logico 0, con 
una modulazione in scrittura ed una demodulazione in lettura. 
Questo tipo di trasmissione, usato in diversi calcolatori, non 
viene usato nei calcolatori COMMODORE. Una semplice elettronica 
di pilotaggio nel registratore invia gli stessi livelli logici 
che riceve in ingresso alla testina, polarizzando in una dire¬ 
zione il nastro quando il livello logico e' alto, e nella dire¬ 
zione opposta quando il livello e' basso. 


CASSETTE WRITE 



Figura T.8a Collegamento della testina all'interno del 
registratore durante la fase RECORD 


Nella Figura J.8a e' riportata una semplificazione dello schema 
elettrico di pilotaggio della testina all'interno del registra¬ 
tore, durante la fase di registrazione, e nella Figura 7.8b sono 
illustrati i livelli di tensione applicati alla testina e la 
magnetizzazione corrispondente del nastro. Il tipo di colle- 
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TENSIONE B-A 


+ 5 V 
0 V 
- 5 V 


FLUSSO MAGNETICO NORD 
DELL'USCITA DELLA 0 
TESTINA SUD 


Figura 7.8b Livelli di tensione e magnetizzazione 
della testina del registratore 

gamento adottato permette di avere all'uscita della testina (e 
quindi su nastro), sempre una polarizzazione magnetica, verso 
nord o verso sud, sia in corrispondenza del livello 0 che in 
corrisponaenza del livello 1. Se si fosse collegato il punto A o 
il punto B (vedi schema in Figura 7.8a) alla massa, in corrispon¬ 
denza di uno dei livelli logici 0 o 1 ci sarebbe stata assenza di 
polarizzazione (anziché' polarizzazione in senso opposto), con 
conseguente instabilità' in fase di lettura dati. Il livello di 
registrazione risulta perciò' essere sempre quello di satura¬ 
zione del nastro, e per questa ragione conviene usare nastri ad 
alto livello di saturazione (HI ENERGY) per aumentare l'affida- 
bilita' delle registrazioni. 



Figura 7-9 Collegamento della testina in fase PLAY 

Nella Figura 7.9 riportiamo un'esemplificazione di come e' colle¬ 
gata la testina in fase di lettura: un amplificatore a guadagno 
elevato amplifica il segnale della testina e lo manda all'in- 


gresso di un INVERTER che pilota la linea fino al registratore. 
La parte iniziale, l'ingresso dell'amplificatore, e' molto sensi¬ 
bile ai disturbi, per cui e' raccomandabile, soprattutto in fase 
di PLAY, tenere il registratore distante da fonti di disturbo, e 
in particolare distanti dallo schermo video, soprattutto se gran¬ 
de e a colori. La linea SCRITTURA CASSETTA e' collegata al bit 1 
del byte 1, e la linea LETTURA CASSETTA e' collegata al bit 4 
della porta 1. Il programma VEDEBIT stampa su video lo stato del¬ 
la linea LETTURA CASSETTA. Quando il registratore e' fermo o sul¬ 
la cassetta non e' inciso segnale, il numero stampato su video 
non cambia, mentre durante l'ascolto di un pezzo di nastro 
registrato, vedi che a volte viene stampato 0, a volte 16 (2*4), 
a indicare che il bit 4 e' ora nello stato 0, ora nello stato 1. 
Non e' possibile in BASIC ricavare informazioni dal nastro, a 
causa della lentezza e della mancanza di temporizzazioni precise 
tipici del linguaggio. 

0 REM VEDEBIT 

10 PRINfPREMI PL0V SUL REGISTRATORE" 

20 D0PRINTPEEK<1)AND16,:LOOP 

COMMENTO A VEDIBIT 

.10: Stampa il messaggio 

.20: Stampa all'infinito il risultato della operazione logica 
AND tra 16 e il contenuto del byte 1, per considerarne solo il 
bit 4 (2*4=16). Nel Paragrafo 8.4.1 parliamo dettagliatamente di 
questa e di altre operazioni tra bit. 

7.8 IL VIDEO 

11 video e' diventato elemento essenziale nei calcolatori, poi¬ 
ché' da' una caratteristica di interattività' assai gradevole ed 
utile sia nello scrivere che nell'eseguire i programmi. Vediamo 
come funziona uno schermo video: si tratta di uno schermo rico¬ 
perto di elementi (FOSFORI) che quando sono colpiti da elettroni 
emettono luce. Dietro questo schermo vi e' un "cannone" che emet¬ 
te un fascio di elettroni di intensità' regolabile verso il cen¬ 
tro dello schermo. Poiché' gli elettroni sono carichi elettri¬ 
camente, possono essere deviati da un campo elettrico. Per devia¬ 
re gli elettroni vi sono delle placche sui 4 lati dello schermo: 
sopra, sotto, a destra e a sinistra. A seconda del potenziale 
applicato alle placche orizzontali si può' orientare il fascio di 
elettroni verticalmente, mentre variando il potenziale applicato 
alle placche verticali lo si può' orientare orizzontalmente. Per 
ottenere un'immagine sul vìdeo si e' diviso lo schermo in 312 
righe orizzontali, e si fa passare il fascio di elettroni da 
sinistra verso destra dalla prima fino alla 312-esima riga in un 
50-esimo di secondo. Un opportuno segnale regola poi l'inten¬ 
sità' del fascio che esce dal cannone, e ciò' permette di avere 
punti diversamente luminosi sopra la stessa riga. 
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Figura 7.10 Segnale video per pilotare un monitor 


Nella Figura 7.10 e' illustrato il formato del segnale video 
adatto a pilotare un normale monitor: la scansione di una riga 
dura 64 microsecondi. Il cannone "spara" elettroni in misura 
proporzionale al livello del segnale, istante per istante. Per 
disegnare una riga illuminata il segnale deve avere un livello di 
tensione alto per tutto il tempo in cui la riga deve essere 
illuminata, e il livello basso del segnale corrisponde al can¬ 
none che emette pochi elettroni, in modo da non far illuminare i 
fosfori che colpisce. I picchi di segnale negativi rappresentano 
i SINCRONISMI, e informano il monitor su quando andare a nuova 
riga, e quando andare a nuovo quadro. Il sincronismo di riga ha 
la frequenza di 15625 hertz, cioè' il periodo dura 64 microse¬ 
condi, e il sincronismo di quadro ha la frequenza di 50 hertz, 
cosicché' il fascio elettronico ritorna sullo stesso punto ogni 
20 millisecondi. 

Nel COMMODORE PLUS-4 c'e' un circuito integrato assai complesso 
che genera il segnale video. Tale integrato e' stato progettato 
appositamente dalla COMMODORE, porta la sigla 7360 ed e' stato 
battezzato TED, come TExt Display, perche' si occupa princi¬ 
palmente della visualizzazione del testo. Vediamo quali sono i 
compiti di TED e come li esegue: sappiamo che una pagina video di 
quelle che TED deve saper visualizzare e' formata da 40 X 25 
caratteri. Poiché' ogni carattere occupa una matrice di 8 X 8 
puntini (PIXEL) occorrono 320 punti su una riga. TED ha a dispo¬ 
sizione circa 45 microsecondi (una parte della riga e' occupata 
dal bordo) per visualizzare una riga di testo, cioè' 140 nanose¬ 
condi (miliardesimi di secondo) per pixel. Come forse hai notato 
TED e' estremamente rapido. Ma vediamo come TED viene a conoscen¬ 
za dei dati che deve visualizzare: tutte le informazioni di cui 
ha bisogno le può' trovare nella memoria del calcolatore, la 
stessa che e' a disposizione della CPU. Per mostrare una riga TED 
ha bisogno di una quantità' rilevante di dati, in poco tempo: 

. Il codice (D/CODE, vedi Appendice C) del carattere da 
visualizzare, 40 volte ogni otto righe. 

. Il colore e la luminosità' del carattere, 40 volte ogni 8 
righe. 
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. L'immagine del carattere da visualizzare, 40 volte ogni riga. 
Deduciamo che per visualizzare la prima di otto righe TED deve 
fare accesso a memoria ben 120 volte, mentre per le altre 7 righe 
bastano 40 accessi ciascuna, che vengono effettuati durante la 
fase bassa di $0 (il D/CODE del carattere e gli attributi sono 
gli stessi per 8 righe). Quando accede al codice e agli attri^ 
buti TED disabilita la CPU; ciò' comporta un rallentamento 
nell'esecuzione di tutti i programmi. Si può' programmare TED in 
maniera che non disturbi la CPU, azzerando il bit 4 del registro 
$FF06 (65286 decimale), ma in questo caso non può' visualizzare 

10 schermo, che appare tutto del colore del bordo. Ti ricordiamo 
che TED accede a memoria senza disabilitare la CPU durante la fa¬ 
se bassa di $0 (vedi Figura 7.5), ed utilizza questo tempo per 
leggere le immagini dei caratteri da visualizzare. 

Nella Figura 7.Ila sono elencate le locazioni di memoria che 
controllano la disposizione dei caratteri sullo schermo e nella 
Figura 7.11b le locazioni che controllano gli attributi, cioè' il 
colore, il livello di luminosità' e il lampeggiamento dei carat¬ 
teri. Sono queste, oltre all'immagine dei caratteri, residente in 
ROM, le zone di memoria da cui il TED attinge le informazioni 
necessarie per effettuare la visualizzazione dello schermo nel 
modo testo. La memoria degli attributi contiene ì dati relativi 
alla luminosità' (i bit 6-5-4), al colore (i bit 3-2-1-0) e al 
lampeggiamento (il bit 7) di ciascun carattere. Gli indirizzi 
segnati nella figura sono quelli validi all'accensione del calco¬ 
latore, e vedrai nei Capitolo 9 come si possono modificare. La 
programmazione del TED e' assai laboriosa, soprattutto a causa 
del gran numero di funzioni che può' eseguire, e per questo 
affrontiamo l'argomento in diversi punti, particolarmente nel 
Capitolo 9 dedicato alla grafica. 

TED ha un numero di funzioni assai elevato all'interno del COMMO¬ 
DORE PLUS-4: genera il CLOCK per la CPU, genera il segnale video, 
genera il segnale audio, rinfresca le memorie dinamiche e regola 
le temporizzazioni necessarie per la gestione di tali memorie, 
riceve i dati che provengono dalla tastiera e quelli che proven¬ 
gono dai joystick, genera gli INTERRUPT per la CPU, emette i 
segnali di abilitazione per le ROM, e infine seleziona il banco 
ROM o RAM negli indirizzi 8000H-FFFFH. Come vedi e' riduttivo 
pensare al TED solo come interfaccia per il video: il TED e' un 
integrato che effettua gran parte delle funzioni di I/O e di 
interfacciamento con la memoria. 

11 segnale video esce dal calcolatore dalla presa marcata VIDEO, 
presente sul retro della tastiera. Il piedino 1 emette un segna¬ 
le che contiene LUMINANZA e SINCRONISMI, ma non contiene le 
informazioni relative al colore, che escono invece dal piedino 6 
(CROMINANZA). Il piedino 4 contiene un segnale VIDEO COMPOSTO, 
che comprende LUMINANZA, CROMINANZA e SINCRONISMI. Al piedino 1 
si può' attaccare un monitor monocromatico; il monitor a colori 
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della COMMODORE modello 1701/1702 fa uso dei segnali separati 
LUMINANZA+SINCRONISMI e CROMINANZA, che preleva dai piedini 1 e 4 
dello spinotto, mentre i monitor di altre marche generalmente 
fanno uso del segnale VIDEO COMPOSTO presente al piedino 7. La 
qualità' del segnale VIDEO COMPOSTO e' inferiore a quella dei 
segnali separati LUMINANZA e CROMINANZA, ed e' anche per questo 
che la qualità' dell'immagine su monitor COMMODORE 1701 e' 
migliore di quella di quasi tutti gli altri monitor della stessa 
fascia di prezzo. Il segnale per il video esce anche da un altro 
spinotto, quello marcato RF, modulato con radiofrequenza. Tale 
segnale e' adatto all'uso con un normale televisore, ma la quali¬ 
tà' dell'immagine e' generalmente peggiore di quella del moni¬ 
tor. Il televisore va sintonizzato sul canale 35, in banda IV 
(UHF), e talvolta può' essere necessario ritoccare la sintonia 
del TV a causa di inevitabili slittamenti della frequenza che 
dipendono dalla variazione di temperatura dei componenti del 
modulatore. La Figura 7.12 riporta lo schema di collegamento del¬ 
lo spinotto VIDEO. 


VISTA FRONTALE 
DELLA PRESA (FEMMINA) 



2 


PIEDINO 

FUNZIONE 

1 

LUMINANZA + SINCRONISMI 

2 

MASSA 

3 

USCITA AUDIO 

4 

VIDEO COMPOSTO 

5 

AUDIO IN 

6 

CROMINANZA 

7 

NON COLLEGATO 

8 

+ 5 VOLT 


Figura 7.12 Connessioni della presa AUDI0/VIDE0 
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7.9 IL SUONO 


Il suono nel COMMODORE PLUS- 1 ! viene generato da due oscillatori 
che si trovano nel TED. Per ognuno di questi vi e' un registro a 
10 bit che indica la frequenza di oscillazione; vi e' poi un 
registro comune, di quattro bit, che indica il volume del suono 
emesso: il livello 0 corrisponde a silenzio, e il livello 8 al 
massimo (i livelli da 8 a 15 sono equivalenti). Tre bit servono 
ad azionare le due voci, e uno di questi indica se la voce 2 
emette un segnale a onda casuale (rumore bianco). 


FREQ.: 

9 8 

7 6 54 3 2 1 

0 

VOCE 1 

BIT 1 E 0 
$ FF12 

F F 0 F 


FREQ.: 

9 8 

7 6 5 4 3 2 1 

0 

VOCE 2 

BIT 1 E 0 
$ FF.10 

F F 0 F 



ABILITAZIONE: BIT 4 $ FF11 (0 = OFF) 
VOCE 1 


ABILITAZIONE: BIT 5 $ FF11 (0 = OFF) 
VOCE 2 


ABILITAZIONE: 

RUMORE BIANCO: BIT 6 $ FF11 (0 = OFF) 
PER VOCE 2 


DISABILITAZIONE: BIT 7 $ FF11 (1 = DISABILITATO) 
DEL SUONO 


VOLUME: BIT 03 $ FF11 
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Figura 7.13 Registri per la gestione del suono 



Nella Figura 7.13 sono riportati gli indirizzi e le posizioni di 
tutti i bit che riguardano il suono. Per generare rumore bianco 
e' sufficiente selezionare il bit del rumore bianco, e non e' 
necessario selezionare anche il bit di abilitazione della voce 2, 
dopo aver impostato la frequenza. 

Il programma SUONOCONPOKE e' un esempio di come vanno gestiti i 
registri di TED per generare suoni. 

0 REM SUONOCONPOKE 

1» T=255*256 

20 POKET+17,8+32 

30 FORF=1TO4*256-1STEPÌ0 

40 POKET+15,FAND255:POKET+16,F/256:HEXT 

50 POKET+15,200 :POKET+16,0 

60 FORU=8TO0STEP-i:POKET+i7,U+32 

70 FORR=±TO200:NEXT:NEXT 


Il suono esce dallo spinotto marcato VIDEO presente sul retro 
della tastiera, ed e* collegato al piedino 3. Per chi usa il 
televisore il segnale del suono e' modulato, e appare nell'al¬ 
toparlante del TV come quello di un normale canale televisivo. 
Nella Figura 7.12 e' riportato lo schema dello spinotto marcato 
VIDEO. Il piedino 5 dello spinotto, AUDIO IN, permette dì inse¬ 
rire un segnale audio in ingresso: il segnale audio in uscita 
AUDIO OUT comprende il mixaggio di AUDIO IN e del suono generato 
dal TED. 


7.10 LA PORTA SERIALE 

Se per i calcolatori stai acquistando quella sorta di passione 
che ha conquistato ed anima noi che scriviamo, ti troverai, pri¬ 
ma o poi, nella necessita' di espandere il tuo calcolatore con il 
DISK DRIVE e con la STAMPANTE: potrai usare il tuo sistema 
calcolatore per gestire archivi elettronici, per scrivere let¬ 
tere e libri (questo libro e' stato scritto su COMMODORE 6H, con 
il programma di elaborazione testi EASY SCRIPT, e stampato con 
una stampante a margherita: EASY SCRIPT sara' presto disponibile 
anche per COMMODORE PLUS-4), e per automatizzare quelle opera¬ 
zioni che riterrai possibile e utile automatizzare. Il tuo COMMO¬ 
DORE PLUS-4 potrà' ancora esserti utile, poiché' le sue doti di 
espandibilita' e i programmi che gradualmente vengono presentati 
sul mercato ti permetteranno di usare questo calcolatore anche 
per usi "professionali". La porta seriale permette di collegare 
FLOPPY DISK DRIVE e STAMPANTE, oltre ad eventuali altre apparec¬ 
chiature (PLOTTER, eco) che ora o in seguito potranno essere 
costruite. 
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CONNETTORE 

Pin No. Signal 

1 N.C. 

2 GND 

3 SERIAL ATN 

4 SERIAL CLK 

5 SERIAL DATA 

6 RESET 



Figura 7.1 il Schema della porta di I/O seriale (SERIAL BUS) 


Vediamo nella Figura 7.14 lo schema di collegamento della porta 
di I/O seriale (SERIAL BUS). I nomi dei segnali sono in inglese, 
poiché' nella terminologia corrente se ne fa uso in lingua ingle¬ 
se. 

Il collegamento tra calcolatore e periferiche su SERIAL BUS e* 
abbastanza complesso, tuttavia possiamo illustrare il principio 

logico di funzionamento, e il significato dei segnali che realiz¬ 
zano il collegamento. Il SERIAL BUS e' stato progettato in manie^ 
ra da permettere il collegamento con un numero e un tipo varia¬ 
bile di periferiche. Se osservi attentamente la Figura 7.14 ti 
accorgi che i fili su cui effettivamente viaggiano segnali utili 
per lo scambio delle informazioni sono 3. piu' la massa. Attra-* 
verso questi 4 fili e' possibile comunicare con un numero di 
periferiche che può' arrivare anche a 7 (2 STAMPANTI, numero 4 e 
5, un PLOTTER, numero 6, quattro DISK DRIVE, numeri da 8 a 11). 
Appare evidente come vi debba essere un accorgimento per comuni-* 
care con 7 diverse unita' attraverso 4 soli fili. Poniamo 
l'attenzione sul SERIAL BUS, cioè' su questi 4 fili a cui risul¬ 
tano collegati, per fare un esempio: CALCOLATORE, DISK DRIVE e 
STAMPANTE. 

E' necessario che i dati siano in grado di viaggiare nelle 
seguenti direzioni: 

.da calcolatore a stampante, 

.da calcolatore a drive, 

.da drive a calcolatore. 

Non e' previsto un collegamento in cui il calcolatore sia esclu¬ 
so, cioè' da drive a stampante. E' stato stabilito che sul SERIAL 
BUS possono essere collegati tre tipi di dispositivi: 

- CONTROLLER, cioè' il dispositivo che controlla il flusso dei 
dati; chi assume questa funzione e' sempre il calcolatore, 

- TALKER, cioè' il dispositivo che invia i dati, 

- LISTENER, cioè' il dispositivo che riceve i dati. 

Inoltre un dispositivo può' essere in uno stato in cui ignora i 
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dati che viaggiano sul bus. 

Per effettuare la trasmissione dei dati il controller invia dei 
messaggi agli apparecchi collegati, e attende la loro risposta. 
Ogni apparecchio ha un numero che lo identifica: la STAMPANTE, ad 
esempio, normalmente ha il numero 7. Per comunicare con la stam¬ 
pante il calcolatore invia all'unita’ 4 l'ordine di ascoltare 
(diventare LISTENER). Se l'unita' 4 risponde entro un ventesimo 
di secondo, il calcolatore invia i dati e la stampante li stam¬ 
pa, altrimenti viene rilevato un errore di mancanza del dispo¬ 
sitivo (DEVICE NOT PRESENT). Alla fine di ogni dato la stampante 
invia una risposta, per informare il calcolatore che il dato e’ 
stato accettato, per evitare che si perdano dei dati a causa del 
fatto che la stampante e' piu' lenta a stampare di quanto lo sia 
il calcolatore ad inviare i caratteri. Alla fine della stampa il 
calcolatore comanda alla stampante di uscire dallo stato di 
LISTENER, e di ignorare gli eventuali caratteri futuri (potranno 
anche non essere indirizzati a lei). 

Il software per il collegamento con il DRIVE e' un po' piu' 
complesso, perche' il DRIVE, a differenza della stampante, e' in 
grado sia di ricevere, sia di trasmettere dati: il modo di rice¬ 
zione dei dati e' uguale a quello della stampante, mentre la 
trasmissione da DRIVE a CALCOLATORE avviene nel modo seguente: il 
calcolatore, che ha bisogno di informazioni dal drive, trasmette 
al drive i dati di cui ha bisogno (ad esempio, il nome del file 
che vuole caricare in memoria), dopodiché’ comanda al drive dì 
diventare TALKER (colui che parla). Il drive invia tutti i carat¬ 
teri del file (il calcolatore intanto ascolta), e alla fine 
trasmette una sequenza di FINE TRASMISSIONE. Il calcolatore 
comanda perciò' al drive di non trasmettere e non ascoltare piu' 
i dati, in modo da liberare la linea seriale per i collegamenti 
anche con le altre periferiche. 

Come forse hai già' notato, il calcolatore e' in grado di coman¬ 
dare alle unita' presenti su linea seriale di ascoltare, di 
parlare, di ignorare. Tutte queste informazioni speciali possono 
partire solo dal calcolatore, e sono segnali trasmessi sotto 
ATTENTION. Il SERIAL ATN OUT e' un segnale che esce dal calco¬ 
latore, e significa che i dati che viaggiano sulle linee CLOCK e 
DATA sono da interpretarsi come comandi. In questo modo il calco¬ 
latore trasmette due byte da otto bit: il primo contiene il nume¬ 
ro di periferica a cui e' inviato il comando (4 bit meno signifi¬ 
cativi) e il tipo di comando da eseguire (LISTEN, TALK, UNLISTEN, 
UNTALK, 4 bit piu' significativi); il secondo byte contiene un 
numero chiamato INDIRIZZO SECONDARIO che la periferica riceve, ed 
ha un significato che dipende dalla periferica a cui e diretto. 
Quando e' attivo il segnale ATTENTION nessuna periferica presen¬ 
ta dati sulle linee SERIAL CLOCK e SERIAL DATA, in modo da 
permettere al calcolatore di eseguire la sequenza di ATTENTION, e 
tutti i dispositivi ascoltano, pronti a eseguire i comandi invia- 
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LINEA 

MASSA 


Figura 7.15 Schema elettrico del SERIAL BUS 


ti. Come puoi osservare nella Figura 7.15, tutte le linee sono di 
tipo OPEN COLLECTOR, cioè' l'uscita di ogni dispositivo colle¬ 
gato e' in grado di porre la linea BASSA se la linea e' alta, ma 
nessuna uscita e' in grado di riportare la linea ALTA, se qual¬ 
che altra unita' la tiene bassa. 

E' chiaro che la linea e' libera quando nessun dispositivo la po¬ 
ne bassa, cioè' quando tutte le uscite sono alte. Se non conosci 
il funzionamento di un transistor, puoi immaginare i transistor 
disegnati in corrispondenza di ciascuna uscita come degli 
interruttori: se l'interruttore e' chiuso la linea si trova 
collegata alla massa, e il livello e' BASSO; se l'interruttore e’ 
aperto lo stato della linea può' essere basso o alto, e dipende 
dagli altri interruttori: se tutti gli interruttori sono aperti, 
allora la linea assume il livello alto, a causa del resistore 
collegato al positivo di alimentazione. 


7.11 L'ORGANIZZAZIONE DELLA MEMORIA 

Nella Figura 7.16 e' illustrata l'organizzazione della memoria 
nel COMMODORE PLUS-*). Abbiamo visto nei paragrafi precedenti che 
questo calcolatore e' dotato di 64K BYTE di memoria RAM. 

Considerando il fatto che la CPU dispone di soli 16 fili per 
indirizzare tutte le memorie collegate (ROM, RAM, I/O), può' 
cioè' indirizzare al massimo 64K di memoria, e' lecito chiedersi 
dove siano i 64K di ROM, e dove siano i registri di I/O. Guar¬ 
dando la Figura 7.16 puoi osservare come gli indirizzi di I/O 
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siano comuni a tutte le mappe, partendo da $FD00 fino a $FF40. 
32K di ROM possono alternarsi alla RAM negli indirizzi da $8000 a 
$FFFF (escluso 1*1/0). Per abilitare la ROM a rispondere agli 
indirizzi suddetti si deve effettuare un'operazione di scrittura 
nel registro del TED che risponde all'indirizzo $FF3E, mentre per 
abilitare la RAM basta effettuare la scrittura nel registro di 
indirizzo $FF3F. Per selezionare quali ROM utilizzare, se quelle 
del S.O. e BASIC o quelle dei 3 + 1, devi effettuare una scrittura 
in $FDD0 per le prime o in $FDD5 per le seconde. 


$ 0000 
$ 0100 
$ 0200 
$ 0800 
$ 0C00 

$ 1000 

$ 3FF6 
$ 4000 

$ 8000 


PAGINA 0 

A 

STACK 


LAVORO BASIC E S.O. 


ATTRIBUTI VIDEO 


MAPPA VIDEO 


AREA LIBERA 

PER IL BASIC 

PROGRAMMA E VARIABILI 


ISTRUZIONI DI RESET 


SPECCHIO PRIMI 

16 K 

J 


> 


SEMPRE RAM 


$ 8000 


FDOO 

FF40 

FFFF 







RAM 


\ 

3200 

BYTE 

ROM 




/ 


CAR 

RAM 

> 





> 


RAM 





I/O 



□ 

VETTORE 


$ 8000 
BASIC 
$ D000 
CARATTERI 
$ D800 
O.S. 

FDOO 


Figura 7.16 Organizzazione della memoria 
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CAPITOLO 8 


LA PROGRAMMAZIONE IN ASSEMBLER 
E IN LINGUAGGIO MACCHINA 


8.1 INTRODUZIONE 

Nel Capitolo 7 abbiamo esposto le caratteristiche HARDWARE del 
COMMODORE PLUS-4 anche per metterti in condizione di utilizzare i 
dispositivi che lo compongono programmando in ASSEMBLER. Uno 
degli ostacoli piu' grossi nell'apprendimento della program¬ 
mazione in linguaggio macchina o in ASSEMBLER e' quello di far 
comunicare il calcolatore con l'esterno. In questo capitolo 
vediamo come e' fatta la CPU 7501, quali istruzioni e' in grado 
di eseguire, come e' fatto e come viene eseguito il programma. 

Il programma che la CPU esegue e* contenuto in memoria come una 
sequenza di byte. La CPU preleva dalla memoria il byte, che 
rappresenta l'istruzione da eseguire, e gli eventuali operandi 
indicati nei byte seguenti; esegue l'istruzione e passa a prele¬ 
vare l'istruzione successiva. Ogni istruzione e' quindi letta 
dalla memoria come un normale byte. Programmare in linguaggio 
macchina vuol dire porre nei byte di memoria i codici delle 
istruzioni che si vogliono eseguire, e gli operandi. Come puoi 
immaginare, e' assai laborioso scrivere un programma sotto forma 
di numeri (in binario), e per questo non e' quasi mai usata que¬ 
sta tecnica. 

Il linguaggio macchina lavora su dati numerici contenuti in un 
byte, quindi con valore da 0 a 255. Per poter trattare numeri 
piu' grandi o con segno si devono usare sottoprogrammi adatti. Lo 
stesso discorso vale per trattare numeri con cifre dopo il punto 
decimale (floating-point) e dati alfanumerici. 

Le istruzioni che la CPU riconosce hanno ricevuto un nome mnemo¬ 
nico che si preferisce usare per scrivere il programma. Esistono 
dei programmi (alcuni chiamati ASSEMBLATORI), che traducono in 
codice oggetto (combinazione di zeri e uni da porre in memoria) 
il programma redatto da noi in forma mnemonica (che viene chia¬ 
mato programma sorgente). Il comando MONITOR del BASIC 3.5 pone a 
nostra disposizione proprio un programma traduttore, anche se non 
si tratta di un vero assemblatore. Parliamo diffusamente del 
MONITOR nel Paragrafo 8.6. 


249 



Anche se, grazie al MONITOR, non dobbiamo tradurre in numeri i 
codici delle istruzioni, abbiamo a che fare con i byte della 
memoria per gli operandi delle istruzioni e per gli indirizzi. Il 
sistema di numerazione decimale non consente una conversione 
immediata in binario. D'altra parte il sistema binario richiede 
troppe cifre per indicare il contenuto di un byte: ad esempio il 
numero 221 decimale corrisponde al numero binario 11011101. Il 
sistema di numerazione che e' stato scelto per indicare gli 
operandi delle istruzioni e' quello a base 16, o ESADECIMALE. In 
tale sistema vi sono 16 cifre: 01 2 3 4 5 6 7 8 9 A B C D E F. 
Il vantaggio dell'esadecimale rispetto al decimale e' che un 
numero esadecimale si può' tradurre in binario piu' in fretta, 
perche' ogni cifra rappresenta H bit; rispetto al binario il 
vantaggio e' che i numeri sono piu' compatti. In questo libro e 
nei libri di ASSEMBLER 6502 i numeri esadecimali sono preceduti 
dal segno dollaro: il numero $23 si rappresenta in binario 
00100011 . 


ESADECIMALE 

BINARI 

DECIMALE 

0 

0000 

0 

1 

0001 

1 

2 

0010 

2 

3 

0011 

3 

4 

0100 

4 

5 

0101 

5 

.6. 

0110 

6 

7 

0111 

7 

0 

1000 

8 

9 

1001 

9 


1010 

10 

B 

1011 

11 

c 

1100 

12 

D 

1101 

13 

E 

ino 

14 

F 

1111 

15 


Figura 8.1 Esadecimale, binario e decimale 


Nella Figura 8.1 trovi la corrispondenza dei valori delle cifre 
esadecimali nei sistemi binario e decimale. Come nel sistema 
decimale dopo il numero 9 si passa à 10 ponendo 1 nella posi¬ 
zione piu' a sinistra, cosi' nell'esadecimale dopo $F si passa a 
$10, che vuol dire 16 in decimale. La Figura 8.2 mostra ancora un 
esempio di conversione: lo stesso numero 101 viene analizzato 
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prima come binario, poi come esadecimale e poi come decimale. A 
titolo informativo aggiungiamo che nel mondo dei calcolatori si 
fa spesso uso anche del sistema a base 8, detto OTTALE, dove le 
cifre vanno da 0 a 7. Noi non faremo mai riferimento a tale 
sistema in questo libro, e per questo non lo approfondiamo. 


BASE 2 

BASE 16 

BASE 10 

1 0 1 

1 0 1 

1 0 1 

2 i 2 ° 

16 2 16' 16° 

o 

o 

o 

4 2 1 

256 1 6 1 

100 10 1 

4+0+1 

256 + 0 + 1 

100 + 0 + 1 

5 

257 

101 


Figura 8.2 Analisi del numero 101 


Accenniamo, da ultimo, al sistema BCD (Bynary Coded Decimai), 
cioè' decimale a codifica binaria: e' una via di mezzo tra esade¬ 
cimale e decimale, perche' ogni cifra BCD rappresenta 4 bit (co-, 
me l'esadecimale) e le cifre vanno da 0 a 9 (come il decimale). 
Il difetto di questo sistema di rappresentazione e' un notevole 
spreco di bit: un byte può' infatti contenere solo 100 combi¬ 
nazioni ammesse (da 0 a 99), invece di 255 possibili in binario. 
Un altro svantaggio risiede nell'elaborazione: consideriamo come 
esempio una qualsiasi operazione di somma: 

NUMERO RAPPRESENTAZIONE BCD 


08 + 

00001000 

+ 

12 = 

00010010 

= 

20 

00100000 

invece di 00011010 


come deve essere. 


Osserviamo subito che l'unita' di calcolo all'interno della CPU 
deve lavorare diversamente se gli operandi e il risultato sono in 
BCD da come opera con gli operandi in binario. Nella 7501 e' 
possibile selezionare il modo BCD con un'istruzione, e tornare al 
modo binario con un'altra istruzione, e questa possibilità' aiu¬ 
ta notevolmente il programmatore ASSEMBLER nel gestire i dati 
decimali. 
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8.2 ORGANIZZAZIONE DELLA CPU 7501 


La 7501 e' una CPU che deriva dalla famìglia 6500, una serie di 
unita' centrali di elaborazione sviluppata negli anni '70 negli 
USA dalla ROCKWELL INTERNATIONAL CORPORATION. La "filosofia" dei 
progettisti e' stata quella di creare una CPU dotata di un nume¬ 
ro di istruzioni relativamente limitato, un numero di registri 
interni anch'esso limitato, ma di potenti e veloci modi dì 
indirizzamento. Per limitare il numero dì istruzioni non si sono 
poste istruzioni specifiche per gestire l'I/0: la CPU gestisce 
solo la memoria, e l'I/O deve essere collegato alla CPU come la 
memoria. Il limitato numero di registri e' compensato dalla 
gestione rapida dei dati in PAGINA ZERO: le celle di memoria che 
partono dall'indirizzo 2 fino a $00FF sono da considerarsi come 
un'estensione dei registri interni della CPU, poiché' si possono 
indirizzare piu' rapidamente e permettono indirizzamenti assai 
potenti, come vedremo nel prossimo paragrafo. 

Osserviamo la Figura 8.3 per vedere come funziona internamente la 
CPU. Partiamo dai registri: la 7501 contiene 6 registri a dispo¬ 
sizione del programmatore. Ogni registro e' formato da 8 bit 
(tranne il PROGRAM C0UNTER che ha 16 bit), ed ha la caratte¬ 
ristica di poter immagazzinare o fornire alla propria uscita un 
dato di 8 bit. I registri non elaborano le informazioni, ma 
semplicemente "ricordano" lo stato degli 8 bit di cui sono compo¬ 
sti. I registri sono i seguenti: 

. Index register Y: REGISTRO INDICE Y 

. Index register X: REGISTRO INDICE X 

. Stack pointer register: STACK POINTER 

. Accumulator: ACCUMULATORE 


. PCL : 
cativi 

meta' 

del 

PROGRAM 

C0UNTER, 

gli 

8 

bit 

meno 

signifi- 

. PCI): 
cativi 

meta' 

del 

PROGRAM 

COUNTER, 

gli 

8 

bit 

piu 1 

signifi- 


. Processor status register: registro che contiene 7 bit; ognu¬ 
no di questi bit, chiamati in gergo FLAG, ha un significato che 
riflette lo stato interno della CPU; esso dipende dalle istru¬ 
zioni eseguite o dal risultato dell'ultima operazione. Dei FLAG 
parleremo piu' dettagliatamente nel seguito di questo paragra¬ 
fo. 

Tutti i registri sono collegati ad un BUS DATI interno, e attra¬ 
verso questo BUS (insieme di 8 fili che corrispondono ciascuno a 
un bit) possono caricare o scaricare dati. Ogni registro risulta 
collegato anche a una parte della CPU indicata nello schema come 
INSTRUCTI0N DECODE (decodifica dell'istruzione): questo blocco 
contiene l'unita' di controllo della CPU, unita' che controlla 
tutte le abilitazioni dei registri (può' comandare a un registro 
di caricare il dato presente sul BUS DATI interno, o di presen- 
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tare su tale BUS il proprio contenuto) e l'ALU (unita’ aritmeti- 
co^logica). La decodifica dell'istruzione e' la parte piu' 
complessa di tutta la CPU: la sua funzione e' quella di generare 
una sequenza di abilitazioni dei registri in modo da eseguire 
l'istruzione specificata dal programma (il codice dell'istru¬ 
zione da eseguire viene posto nell'INSTRUCTION REGISTER, che lo 
presenta al blocco INSTRUCTION DECODE, come puoi osservare nella 
parte in basso a destra dello schema). 

Abbiamo nominato l'ALU; puoi osservare nello schema che tale uni¬ 
ta' e' collegata al BUS DATI interno, all'ACCUMULATORE, e ai due 
BUS interni ADL e ADH, che sono la parte bassa (ADL, 8 bit meno 
significativi) e parte alta (ADH, 8 bit piu' significativi) del 
BUS INDIRIZZI interno. L'ALU e' in grado di eseguire operazioni 
aritmetico-logiche tra i vari BUS a cui e' collegata. Ad esempio 
l'ALU e' in grado di eseguire la somma tra il contenuto del BUS 
DATI interno e l'accumulatore, e memorizzare il risultato. Essa 
e' in grado poi di presentare il risultato memorizzato sul bus 
dati; tutte le operazioni che l'ALU esegue sono comandate dalla 
sezione INSTRUCTION DECODE. 

Vediamo ora come la CPU esegue un'istruzione, ad esempio l’istru¬ 
zione: 

LDA #$24 

che si trova nei byte di memoria $1000 e $1001: 

$1000 = $A9 

$1001 = $24 

L'istruzione LDA # produce l'effetto di caricare nell'ac¬ 
cumulatore il dato che segue. 11 codice di questa istruzione e' 
10101001 binario, cioè' $A9. 

Il PROGRAM C0UNTER (che da ora chiameremo P.C.) contiene l'indi¬ 
rizzo dell'istruzione che deve essere eseguita, cioè' nel nostro 
caso $1000. Il contenuto del P.C. viene presentato sul BUS 
INDIRIZZI, si attende una transizione di $0 in modo che la memo¬ 
ria abbia il tempo di fornire il dato richiesto, e si carica il 
contenuto del BUS DATI esterno (in basso nel disegno) nel regi^ 
stro delle istruzioni. Nel nostro caso tale registro contiene il 
contenuto del byte $1000, cioè' $A9. INSTRUCTION DECODE (da ora 
I.D.) riconosce che si tratta dell’istruzione LDA #, ed esegue 
tutte le abilitazioni necessarie, in particolare: 

. PCL (che contiene $00) scarica su DATA BUS interno. 

. ALU incrementa DATA BUS ($00) e presenta il risultato ($01 ) 
su ADL interno. 

. PCL carica da ADL ($01): e' stato incrementato il PROGRAM 
C0UNTER. 

. Il BUS indirizzi contiene ora $1001. I.D. attende la transi¬ 
zione di 4>0 per accedere all'indirizzo di memoria specificato. 

. Passata la transizione I.D. disabilita l'uscita dell'ALU su 
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ADL e l'uscita di PCL sul BUS DATI interno, abilita DATA BUS BUF¬ 
FER a presentare sul BUS DATI interno il contenuto del BUS DATI 
esterno ($24, il contenuto del byte $1001). 

. I.D. abilita l'accumulatore a caricare dal BUS DATI interno 
($24). E’ stato caricato $24 nell'accumulatore. 

. I.D. disabilita l'uscita dal DATA BUS BUFFER, abilita PCL 
($01) a scaricare sul BUS DATI interno e l'ALU incrementa il 
contenuto del BUS DATI interno, presentando il risultato ($02) su 
ADL. 

. PCL viene abilitato a caricare da ADL, e intanto viene effet¬ 
tuato un accesso alla locazione $1002 (si attende una transi¬ 
zione di $0) per leggere il codice dell'istruzione successiva. 

Non ti spaventare se hai trovato difficile seguire tutte queste 
operazioni: abbiamo affrontato un argomento abbastanza compli¬ 
cato. Non e' essenziale capire perfettamente come funziona den¬ 
tro la CPU per usarla, tuttavia pensiamo sia utile avere almeno 
un'idea di come si svolgono le operazioni all'interno di questa 
"scatola nera". Puoi soffermarti su questi argomenti in una 
seconda lettura: ti consigliamo di seguire sulla Figura 8.3 tut- 



ACCUMULATORE A 

REGISTRO INDICE Y 

REGISTRO INDICE X 

PROGRAM COUNTER "PC" 

PUNTATORE DI "S" 


REGISTRO DI STATO DEL PROCESSORE "P" 


RIPORTO 1 = VERO 

ZERO 1 = RISULTATO ZERO 

DISABILITA INTERRUZIONI i = DISABILITATO 
MODO DECIMALE 1 = VERO 
ISTRUZIONE BRK 

OVERFLOW 1 = VERO 

SEGNO 1 = SEGNO 


Figura 8.4 Registri della CPU 7501 a disposizione 
del programmatore 
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te le operazioni, se vuoi capire bene l'esempio appena spiegato: 
in seguito puoi anche provare per esercizio (e per divertimento) 
a far eseguire alla CPU qualche altra istruzione. 

Soffermiamo ora l'attenzione sui FLAG. Abbiamo accennato che vi 
e' un registro a 8 bit chiamato STATO DEL PROCESSORE che contie¬ 
ne 7 FLAG. Un FLAG e' un bit che ha un certo significato logico. 
FLAG in inglese vuol dire "bandiera": e' come una bandiera che si 
alza ad indicare che un determinato evento si e' verificato. 

Nella Figura 8.JJ trovi riassunti i nomi dei registri della 7501. 
Puoi osservare come sia organizzato il REGISTRO DI STATO: 

. BIT 7 = N. Flag di SEGNO. Questo bit e' a 1 se il risultato 
.dell'operazione e' negativo. La 7501 tratta i numeri negativi in 
COMPLEMENTO A DUE. Secondo tale rappresentazione il bit piu' 
significativo rappresenta il segno, (0=positivo, 1=negativo). I 
numeri negativi sono rappresentati come "parte che manca al valo-> 
re assoluto del numero per arrivare a 256" (256 nei numeri a 8 
bit; 65536 nei numeri a 16 bit; 2~n nei numeri a n bit). Pren¬ 
diamo il numero -12. Quanto manca da 12 per arrivare a 256? Man¬ 
ca 2411; 211-M si rappresenta in binario puro 11110100. Questa e’ 
anche la rappresentazione di -12 in complemento a 2. Tale 
rappresentazione a prima vista appare assai scomoda, ma e' in 
realta' la piu' efficiente dal punto di vista dell'elaborazione. 
Il FLAG DI SEGNO riporta lo stato del bit piu' significativo del 
risultato. Il suo valore viene aggiornato dopo le istruzioni di 
somma, sottrazione, incremento, decremento, caricamento da memo¬ 
ria, confronto, rotazione di bit, scorrimento di bit, trasfe¬ 
rimento da registro a registro, ecc. La tabella nell'Appendice A 
mostra nella sesta colonna da destra quali sono le istruzioni che 
alterano lo stato di questo FLAG. 

. BIT 6 = V. Overflow. Questo bit indica se c'e' stato traboc¬ 
camento nelle operazioni in complemento a 2, cioè' se il risul- 
tato e' troppo grande (>127) o troppo piccolo (<—128) per essere 
rappresentato in complemento a 2 con 8 bit. In questo caso il 
risultato e' sbagliato. Nell'aritmetica in valore assoluto e nei 
byte meno significativi dei numeri in complemento a 2 che oc¬ 
cupano piu' di un byte, lo stato di questo bit non ha nessun 
significato. Solamente somma e sottrazione alterano lo stato di 
questo FLAG, oltre all'istruzione BIT (in questo caso V assume un 
significato diverso, e indica lo stato del bit 6 del risultato), 
e CLV che pone a 0 lo stato di questo bit. 

. BIT 5 = non utilizzato 

. BIT t| = b. Istruzione BRK. L'istruzione BRK e' molto parti¬ 
colare: quando viene incontrata la CPU esegue le stesse opera-" 
zioni di quando riceve un interrupt (vedi Paragrafi 8.5 e 7.3), 
con la differenza che il registro di stato salvato nello stack 
contiene 1 nella posizione del bit di BREAK. Normalmente nella 
programmazione non viene usato. Poiché’ non esistono istruzioni 
che permettono di vedere lo stato di questo FLAG nella CPU, biso- 
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gna prelevarlo dallo stack con una piccola routine. Puoi vedere 
questa routine disassemblando il sistema operativo, partendo 
dall'indirizzo $CE00. Se il FLAG di BRK e' a 1 il SISTEMA 
OPERATIVO fa un salto indiretto a $0316, se no a $031^- 

. BIT 3 = D. Modo decimale. Abbiamo visto nel precedente parai 
grafo che rappresentando i numeri col modo BCD (decimale a codi¬ 
fica binaria) le operazioni aritmetiche devono essere eseguite 
con un criterio diverso rispetto al binario puro. Questo FLAG, 
che e' controllato dal programmatore, informa l'ALU che i conti 
vanno fatti in BCD. L'istruzione SED attiva il modo BCD, e CLD lo 
disattiva. 

. BIT 2=1. Disabilita le interruzioni: questo bit e' sotto il 
controllo diretto del programmatore, cioè' non cambia in base al 
risultato di operazioni; lo si può' porre a 1 o a 0, l'istru¬ 
zione SEI lo pone a 1, l'istruzione CLI lo pone a 0. Come tutti 
gli altri FLAG il suo valore viene aggiornato anche dopo le 
istruzioni PLP e RTI, che prelevano lo stato del processore dal¬ 
lo STACK. 

. BIT 1 = Z. Risultato zero. Questo e' uno dei FLAG piu' usati 
nei programmi in ASSEMBLER: indica se tutti gli 8 bit del risul¬ 
tato sono a 0, e solo in tal caso Z vale 1. Come per il FLAG N, 
anche il FLAG Z viene modificato da numerose istruzioni, come 
puoi osservare nella quinta colonna da destra dell'Appendice A. 

. BIT 0 = C. Carry, o riporto o prestito. Questo FLAG viene 
alterato dal risultato di diverse operazioni, e talvolta con 
significati diversi.'Nella somma indica se il risultato ha supe¬ 
rato 255, e nella sottrazione indica se c’e' stato prestito. Puoi 
vedere quali operazioni interessano il FLAG C nella quarta colon¬ 
na da destra della tabella nell'Appendice B. 

Abbiamo nominato i termini STACK e STACK POINTER, senza descri¬ 
vere il loro significato: lo STACK e’ un'area di memoria riser¬ 
vata alla CPU dove la CPU pone delle informazioni in maniera 
temporanea. STACK vuol dire "catasta", e il suo funzionamento e' 
paragonabile a quello di una catasta o, piu' elegantemente, di 
una struttura di dati di tipo LIF0 (Last In, First Out, cioè' 
l'ultimo dato entrato e' il primo che esce). Nella 7501 lo STACK 
occupa le locazioni da $100 a $1FF, cioè' la pagina 1 della memo¬ 
ria. Lo. STACK POINTER e' un registro della CPU di 8 bit, che 
indica la parte meno significativa del primo byte libero dello 
STACK (la parte piu' significativa e' sempre $01). All'ac¬ 
censione lo STACK POINTER viene posto a $FF. Ogni volta che si 
spinge un dato nello STACK (PUSH) il dato viene posto all'in¬ 
dirizzo specificato dallo STACK POINTER, dopodiché' lo STACK 
POINTER viene decrementato. 

Nel prelevare un dato dallo STACK (PULL) viene prima incre¬ 
mentato lo STACK POINTER e poi prelevato il dato. Lo STACK e' 
molto importante per il funzionamento del calcolatore: l'istru¬ 
zione JSR (salta alla subroutine), ad esempio, usa lo STACK per 
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Figura 8.5 STACK e STACK POINTER 


memorizzare l'indirizzo dove tornare al momento dell'istruzione 
RTS, ed anche l'INTERRUPT fa uso dello STACK per poter ripren¬ 
dere il programma alla fine della routine di servizio dell'in- 
terrupt. Vi sono diverse istruzioni che fanno uso dello STACK, 
come PHP, PLP, PHA, PLA, RTS, RTI, BRK; inoltre lo STACK POINTER 
può' essere trasferito nel registro X (TSX) e viceversa (TXS). 
Vedi il Paragrafo 8. 1 ) per la descrizione del funzionamento di 
queste istruzioni. 

Abbiamo già' visto la funzione dei registri STATO del proces¬ 
sore, STACK POINTER, PROGRAM COUNTER. Vediamo ora 1’ACCUMULATORE. 
Come puoi notare dalla Figura 8.3 1'ACCUMULATORE e' collegato 
direttamente all'ALU. E' questo il registro a cui fa riferimento 
gran parte delle istruzioni aritmetico-logiche. Sull'ac¬ 
cumulatore e' possibile effettuare scorrimento di bit, opera¬ 
zioni logiche AND, OR, EOR (Exclusive OR), somma, sottrazione. 

I due registri indice X e Y sono usati come indici negli indiriz¬ 
zamenti indicizzati, come puoi meglio osservare nel prossimo 
paragrafo. 


8.3 I MODI DI INDIRIZZAMENTO 

Nella descrizione della 7501 abbiamo detto che tale CPU ha molti 
modi di indirizzamento, e molto potenti; ora passiamo a descri¬ 
verli . 

Il modo di indirizzamento in una CPU e' il modo con cui e' possi¬ 
bile ricavare l'indirizzo dell'operando. Poiché' ogni istruzione 
ha lo scopo di produrre qualche effetto su qualche operando 
(registro della CPU o cella di memoria), possiamo dedurre che 
ogni istruzione (anche NOP, che fa cambiare il PROGRAM COUNTER 
per eseguire l'istruzione seguente) usa un modo di indiriz- 
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zaraento. Nella prima riga dell'Appendice A sono riportati tutti i 
modi di indirizzamento della 7501. VEDIAMOLI UNO PER UNO. 

. IMMEDIATO. L'operando segue l'istruzione. Si indica con il 
segno # prima dell'operando. Ad esempio: 

LDA #$24 

si codifica in memoria cosi': 

$A9 $24 

Nell'accumulatore viene posto il numero $24. 

. ASSOLUTO. L'operando e' contenuto in memoria all'indirizzo 
specificato dai due byte seguenti il codice dell’istruzione: 

LDA $134F 

si codifica in memoria cosi': 

$AD $4F $13 

Nell'accumulatore viene posto il numero contenuto nel byte di 
indirizzo $134F (prima il byte basso e poi quello alto). 

. PAGINA ZERO. L'operando e' contenuto in memoria all'in-' 
dirizzo della pagina 0 specificato dal byte che segue l'istru¬ 
zione: 

LDA $24 

si codifica in memoria cosi': 

$A5 $24 

A differenza dell'immediato, nell'accumulatore viene posto il 
byte il cui indirizzo e' contenuto nel byte di indirizzo $0024 (e 
non il numero $24). 

. ACCUMULATORE. L'operando e' dentro la CPU, e precisamente 
nell'accumulatore: 

LSR 

si codifica in memoria cosi': 

$4A 

Viene fatto scorrere verso destra il contenuto dell'accu¬ 
mulatore. 

. IMPLICATO. L'operando e' sottinteso dal tipo di istruzione: 
CLC 

si codifica in memoria cosi': 

$18 

Azzera il CARRY. L'operando e' palesemente il CARRY. 

. ASSOLUTO,X. L'operando e' contenuto in memoria, e l'indi¬ 
rizzo si ricava sommando ai due byte, che seguono il codice 
dell'istruzione, il contenuto del registo X: 

LDA $103D,X 

si codifica in memoria cosi': 

$BD $3D $10 

Supponiamo che il registro X contenga $D1 : $103D e' sommato a 
$D1, ottenendo $110E. L'operando e' contenuto all'indirizzo 
$110E. 

. ASSOLUTO,Y. Opera come ASSOLUTO,X, ma anziché' il registro X 
usa il registro Y: 

LDA $103D,Y 


259 



si codifica in memoria cosi': 

$B9 $3D $10. 

. PAGINA 0,X L'operando si trova in pagina 0, all'indirizzo 
ottenuto sommando il byte seguente l'istruzione e il registro X: 
LDA $F0,X 

si codifica in memoria cosi': 

$B5 $F0 

Se X contiene $32, nell'accumulatore viene posto il byte conte¬ 
nuto nella cella $0022 ($F0 + $32 =$122, ma l'operando viene 
prelevato sempre dalla pagina 0). 

. PAGINA 0,Y. Opera come PAGINA 0,X, ma usa il registro Y. E' 
implementato solo con le istruzioni LDX e STX: 

LDX $20,Y 

si codifica in memoria cosi': 

$B6 $20. 

. INDIRETTO. L'istruzione e' seguita da due byte che indicano 
l'indirizzo del puntatore dove si trova l'indirizzo dell'o-i 
perandò: 

JMP ($2000) 

si codifica in memoria cosi': 

$6C $00 $20 

Produce un salto non alla cella $2000, ma all'indirizzo specie 
ficato nelle celle $2000 e $2001. Se tali celle contengono i 
numeri $12 e $34 rispettivamente, la CPU salta all'indirizzo 
$3*112 (il byte piu' significativo e' sempre dopo quello meno 
significativo). 

. (INDIRETTO) ,Y. Si chiama INDIRETTO INDICIZZATO, ed e' uno dei 
modi piu' potenti. L'istruzione e’ seguita da un byte, che indi-’ 
ca l'indirizzo in pagina 0 del puntatore al dato. All'indirizzo 
contenuto nel puntatore va sommato il contenuto del registro Y 
per ricavare l'indirizzo dell'operando: 

LDA ($03),Y 

si codifica in memoria cosi': 

$B1 $03 

Se le celle $0003 e $0004 contengono rispettivamente $14 e $2E e 
il registro Y contiene $F1, l'indirizzo che risulta e' il seguen¬ 
te: $2E14 + $F1 = $2F08. Viene caricato l'accumulatore col conte¬ 
nuto della cella $2F08. 

. (INDIRETTO,X). Si chiama INDICIZZATO INDIRETTO, e differisce 
dal precedente. Il contenuto del registro X e' sommato al byte 
seguente l'istruzione, il risultato indica l'indirizzo di un 
puntatore in pagina 0. L'operando si trova all'indirizzo speci¬ 
ficato dal puntatore suddetto: 

LDA ($F0,X) 

si codifica in memoria cosi': 

$A1 $F0 

Se X contiene $31 viene sommato $F0 con $31, ottenendo $121. E' 
considerata la parte meno significativa, e l'indirizzo dell'o- 


260 



perando e' prelevato dalle celle $21 e $22. 

. RELATIVO. Questo indirizzamento e’ usato per tutte le istru¬ 
zioni di salto condizionato, o BRANCH. L'operando, che segue 
l'istruzione, e' un byte considerato come un numero in comple¬ 
mento a due (può' variare da -128 a +127). L'operando e' sommato 
al PROGRAM COUNTER e il risultato ottenuto e' immagazzinato nel 
PROGRAM COUNTER. L'operando indica lo "spiazzamento" da fornire 
al PROGRAM COUNTER nel caso in cui si verifica la condizione di 
salto. 

BCC $09 

si codifica in memoria cosi': 

$90 $09 

e produce l'effetto seguente: se il CARRY e a 1 prepara il P.C. 
per eseguire l'istruzione che segue, se invece CARRY = 0 al P.C 
viene sommato 9 rispetto sempre all'istruzione che segue, e il 
programma riprende dal nono byte che segue l'istruzione dopo 
BRANCH (ma non necessariamente dalla nona istruzione, perche' una 
istruzione può' occupare uno, due o tre byte). Nota che usando il 
MONITOR devi fornire l'indirizzo assoluto, e il MONITOR calcola 
l'indirizzo relativo. Il vantaggio di questo tipo di indiriz¬ 
zamento e' che puoi trasferire il programma in un'altra zona del¬ 
la memoria senza cambiare gli indirizzi dei salti. 

Abbiamo analizzato tutti i modi possibili di indirizzamento del¬ 
la CPU 7501. Non occorre impararli tutti a memoria subito, ma ti 
consigliamo di rileggere quelli che non hai capito prima di 
avventurarti nella scrittura di programmi in linguaggio 
ASSEMBLER. 


8.4 IL SET DI ISTRUZIONI 

Nell'esposizione del completo set di istruzioni del micropro¬ 
cessore 7501, distingueremo cinque categorie principali: 

1) .trasferimento dati, 

2) .logico matematiche, 

3) .controllo del flusso, 

4) .manipolazione dei flag, 

5) .uso dello stack. 

.1): Consentono di trasferire dati di 8 bit da un registro 
all'altro, da un registro alla memoria o viceversa. 

.2): Permettono al microprocessore di eseguire operazioni 
aritmetiche (piu 1 e meno), operazioni logiche (AND, OR, E0R 
(exclusive OR)), operazioni di scorrimento (shift e rotazioni), 
incremento e decremento. 
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.3): Sono usate per i salti condizionati, salti non condizio¬ 
nati, salti a subroutine e gestione dell'interrupt. 

.4): Consentono di agire sul registro di stato del processore. 
.5): Permettono di introdurre ed estrarre dati dallo stack, sen¬ 
za doverti preoccupare della gestione dello stack pointer. 

Nel corso dell'esposizione compaiono alcuni simboli di cui ripor¬ 
tiamo il significato: 

A: accumulatore 

M: cella di memoria (byte di memoria) 

P: registro di stato 

S: stack pointer 

X: registro X 

Y: registro Y 

DATO: dato specificato 

PC: program counter 

STACK: l'ultima cella dello stack 

=: assegnamento 

A: AND logico 

V: OH logico 

V: EOR (OR esclusivo) 

C: NOT CARRY 

(...): contenuto di ... 

BN: bit N 

MN: bit N della cella (byte) di memoria specificata. 

V: FLAG di overflow 
N: FLAG di segno 
I: FLAG di interrupt 
D: FLAG decimale 
C: FLAG di carry 
Z: FLAG di zero 

8.4.1 LE OPERAZIONI LOGICHE 

Prima di illustrare le istruzioni del set della CPU 7501, vorrem¬ 
mo spendere qualche parola riguardo alle operazioni logiche AND 
OR ed EOR (exclusive OR). 

Hai già' incontrato le prime due in BASIC e le hai usate per fa¬ 
re di piu' condizioni una sola condizione, ad esempio: 

IF (A AND Z<1) OR A$="PIPP0" THEN ... 

l'istruzione dopo il THEN viene eseguita se sono vere entrambe le 
prime due condizioni o se e' vera la terza: cioè' se e' vera la 
condizione composta. 

Ma le operazioni logiche AND e OR sono piu' generali di quanto 
non possa sembrare dall'esempio appena fatto: esse possono agi¬ 
re, infatti, anche tra numeri interi, oltre che tra condizioni 
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vere o false. 

Cominciamo a definire le operazioni logiche tra bit: 


0 AND 0 = 0 
0 AND 1 = 0 
1 AND 0 = 0 
1 AND 1 = 1 


0 OR 0 = 0 
0 OR 1 = 1 
1 OR 0 = 1 
1 OR 1 = 1 


0 EOR 0=0 
0 EOR 1 = 1 
1 EOR 0 = 1 
1 EOR 1 = 0 


Il risultato della AND tra due bit e* quindi uguale a 1 solo se 
il primo E il secondo bit sono uguali a 1 ; il risultato della OR 
tra due bit e' uguale a uno se lo sono il primo 0 il secondo (o 
entrambi); il risultato della EOR tra due bit e' uguale a 1 se lo 
sono il primo 0 il secondo (ma non entrambi). 

Estendere ora il significato dell'operazione a numeri interi di X 
bit e' semplice: il bit N del risultato di un'operazione logica 
tra byte e' uguale al risultato dell'operazione logica tra i bit 
corrispondenti dell'operando; ad esempio: 


2 AND 3 = 2 
infatti: 
00000010 AND 
00000011 = 
00000010 cioè' 2 


Le AND e OR del BASIC sono proprio le operazioni logiche che 
abbiamo descritto. 

Prova a chiedere al tuo COMMODORE PLUS -1 ) : 

PRINT 2 AND 3 

e vedrai che il risultato sara' corretto. Queste operazioni van¬ 
no bene anche per legare tra di loro condizioni perche' il C0MM0-> 
DORÈ PLUS -1 ) assegna ad un'espressione vera il valore ->1 (in 
complemento a due su 16 bit = 16 bit a 1) e ad una falsa il valo¬ 
re 0 (16 bit a 0) (prova a scrivere PRINT 2>7 o PRINT 2<7): quan¬ 
do deve combinare tra loro due condizioni con la funzione AND il 
risultato e' -1 (cioè' vero) solo se entrambe le condizioni vai-' 
gono -1 (cioè’ sono vere); se l'operazione e' la OR il risultato 
e' ->1 se almeno una delle due vale -1. 

A questo punto sorge spontanea una domanda: perche' nel set di 
istruzioni di un microprocessore appaiono queste strane opera¬ 
zioni mentre non compaiono operazioni piu' usuali come la 
moltiplicazione e la divisione? Perche' queste operazioni ti 
permettono di leggere o alterare un singolo bit o un gruppo di 
bit di un byte, cosa questa assai piu' importante, in molti ca¬ 
si, di una moltiplicazione o una divisione (che si possono comun¬ 
que ottenere grazie a un opportuno algoritmo). Ad esempio: vuoi 
sapere quanto vale il bit 3 di un certo byte? Basta fare la AND 
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tra questo byte e 8 (2*3): se il risultato e' 0 il bit vale 0, se 
e' 8 il bit e' a 1. Altro esempio: vuoi porre a 1 il bit 5? Fai 
la OR con 32 (2*5). Se lo volevi a 0? Fai la AND con 223 (255~32 
cioè' un numero che ha tutti i bit a uno tranne il quinto).La EOR 
a cosa serve? Serve a cambiare il valore di uno o piu' bit. Ad 
esempio 01010011 EOR 00001111 = 01011100: questa operazione ha 

cambiato il valore dei bit 3-0 del primo operando (cioè' quelli 
che valgono 1 nel secondo operando). Se fai una EOR tra il conte¬ 
nuto di un byte e $FF "neghi" il contenuto del byte: cioè' i bit 
che valevano 1 valgono 0 e viceversa. 

Ti proponiamo il programma AND&0R che genera operazioni logiche 
casuali tra numeri binari di 8 bit. Dopo aver calcolato la rispo¬ 
sta premi un tasto e il tuo calcolatore ti dara' la conferma. 

e REM AND&OR 

10 A=INT<RND<0)*256):B=INT<RND<0>*256):OP=INT(RN 
IH0>*2) 

26 PRINTCHRS <14?) 

30 FORI=0T07 

40 IFAAND2t <7-1> THENCHAR,4+1,3, "A" :ELSECHAR, 4+1 , 

3,"0" 

50 NEXTI:CHAR,12,3,STRS<A> 

60 IFOPTHENCHAR.1,4,"OR":ELSECHAR,0.4,"AND” 

70 FORI=0TO7 

80 IF B AND2t<7-I)THENCHAR,4+1,4,"•":ELSECHAR, 4+ 

I,4,"0" 

90 NEXTI:CHAR,12,4,STRS<B> 

100 CHAR,2,6,"=" 

110 IFOPTHENR=°AORB:ELS£R=AANDB 
115 GETKEVAS 
120 FORI=0T07 

130 IFRAND2f<7-I)THENCHAR,4+1,6,:ELSECHAR,4*1 
, 6,"O" 

140 NEXTI:CHAR,12,6,STRSIR) 

150 GETKEVAS:RUN 


8.11.2 ISTRUZIONI DI TRASFERIMENTO 


LDA: LoaD Accumulator A=DAT0 

Il dato specificato viene posto nell'accumulatore. 

INDIRIZZAMENTO: immediato -• assoluto - pagina 0 - indicizzato X e 
Y - pagina 0 indicizzato X - indiretto indicizzato - indicizzato 
indiretto. 

FLAG MODIFICATI: zero e segno. 

LDX: LoaD X register X=DAT0 

Il dato specificato viene posto nel registro X. 
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INDIRIZZAMENTO: immediato - assoluto - pagina 0 - indicizzato Y - 
pagina 0 indicizzato Y. 

FLAG MODIFICATI: zero e segno. 

LDY: LoaD Y register Y=DATO 

Il dato specificato viene posto nel registro Y. 

INDIRIZZAMENTO: immediato - assoluto - pagina 0 - indicizzato X - 
pagina 0 indicizzato X. 

FLAG MODIFICATI: zero e segno. 

STA: STore Accumulator M=(A) 

Il contenuto dell'accumulatore viene posto nella cella di memo-^ 
ria di indirizzo specificato. Il contenuto dell'accumulatore non 
viene cambiato. 

INDIRIZZAMENTO: assoluto - pagina 0 - indicizzato X e Y - pagina 
0 indicizzato X - indiretto indicizzato - indicizzato indiret¬ 
to. 

FLAG MODIFICATI: nessuno. 

STX: STore X register M=(X) 

Il contenuto del registro X viene posto nella cella di memoria di 
indirizzo specificato. Il contenuto del registro X non viene 
cambiato. 

INDIRIZZAMENTO: assoluto - pagina 0 - pagina 0 indicizzato Y. 

FLAG MODIFICATI: nessuno. 

STY: STore Y register M=(Y) 

Il contenuto del registro Y viene posto nella cella di memoria di 
indirizzo specificato. Il contenuto del registro Y non viene 
cambiato. 

INDIRIZZAMENTO: assoluto - pagina 0 - pagina 0 indicizzato X. 

FLAG MODIFICATI: nessuno. 

TAX: Transfer Accumulator to X register X=(A) 

Il contenuto dell'accumulatore viene posto nel registro X. Il 
contenuto dell'accumulatore non viene cambiato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 

TAY: Transfer Accumulator to Y register Y=(A) 

Il contenuto dell'accumulatore viene posto nel registro Y. Il 
contenuto dell'accumulatore non viene cambiato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 


TSX: Transfer Stack pointer to X register X=(S) 

Il contenuto dello stack pointer viene posto nel registro X. Il 
contenuto dello stack pointer non viene cambiato. 
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INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 

TXA: Transfer X regi ster to Accumulator A=(X) 

Il contenuto del registro X viene posto nell'accumulatore. Il 
contenuto del registro X non viene cambiato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 

TXS: Transfer X register to Stack pointer S=(X) 

Il contenuto del registro X viene posto nello stack pointer. Il 
contenuto del registro X non viene cambiato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: nessuno. 

TYA: Transfer Y register to Accumulator A=(Y) 

Il contenuto del registro Y viene posto nell'accumulatore. Il 
contenuto del registro Y non viene cambiato. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 


8.11.3 OPERAZIONI LOGICO MATEMATICHE. 


ADC: ADd with Carry A=(A)+DATO+C 

Somma il contenuto dell'accumulatore con il dato specificato e il 

carry. Il risultato viene posto nell’accumulatore. 

INDIRIZZAMENTO: immediato - assoluto - pagina 0 - indicizzato X e 
Y - pagina 0 indicizzato X - indiretto indicizzato -■ indicizzato 
indiretto. 

FLAG MODIFICATI: carry, zero, overflow e segno. 

AND: AND A=(A)ADATO 

Esegue l'AND logico tra l'accumulatore e il dato specificato. Il 

risultato viene posto nell'accumulatore. 

INDIRIZZAMENTO: immediato - assoluto - pagina 0 - pagina 0 
indicizzato X - indicizzato X e Y - indiretto indicizzato - 
indicizzato indiretto. 

FLAG MODIFICATI: zero e segno. 

ASL: Arithmetic Shift Left C=B7=B6=B5=B4=B3=B2=B1=B0=0 
Sposta il contenuto dell'accumulatore o della cella di memoria 
specificata di una posizione bit verso sinistra. Il contenuto del 
bit 0 diventa 0 e il contenuto del bit 7 viene posto nel flag di 
carry. Questa operazione equivale ad eseguire una moltipli¬ 
cazione per 2. 

INDIRIZZAMENTO: accumulatore - assoluto - pagina 0 - indicizzato 
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X -> pagina 0 indicizzato X. 

FLAG MODIFICATI: carry, zero e segno. 

BIT: test BITs in raemory (A)A(M) - N=(M7) - V=(M6) 

Esegue la AND logica tra il contenuto dell'accumulatore e il 
contenuto della cella di memoria specificata. Il risultato non 
viene posto da nessuna parte ma viene alterato.il flag di zero. 
Pone il contenuto del bit 7 della cella di memoria specificata 
nel flag di segno e il contenuto del bit 6 nel flag di over- 
flow. 

INDIRIZZAMENTO: assoluto - pagina 0. 

FLAG MODIFICATI: zero, overflow e segno. 

CMP: CoMPare with accumulator (A)-DATO 

Sottrae al contenuto dell'accumulatore il dato specificato. Il 
risultato non viene posto da nessuna parte ma vengono alterati i 
flag di carry, zero e segno (C=1 indica A>=DATO, Z=1 indica 
A=DATO). 

INDIRIZZAMENTO: immediato - assoluto - pagina 0 - indicizzato X e 
Y - pagina 0 indicizzato X - indiretto indicizzato -■ indicizzato 
indiretto. 

FLAG MODIFICATI: carry, zero e segno. 

CPX: Compare with X register (X)-DATO 

Sottrae al contenuto del registro X il dato specificato. Il 
risultato non viene posto da nessuna parte ma vengono alterati i 
flag di carry, zero e segno (C=1 indica A>=DATO, Z=1 indica 
ADDATO). 

INDIRIZZAMENTO: immediato -> assoluto - pagina 0 
FLAG MODIFICATI: carry, zero e segno. 

CPY: ComPare with Y register (Y)-DATO 

Sottrae al contenuto del registro Y il dato specificato. Il 
risultato non viene posto da nessuna parte ma vengono alterati i 
flag di carry, zero e segno (C=1 indica A>=DATO, Z=1 indica 
A=DATO). 

INDIRIZZAMENTO: immediato - assoluto - pagina 0 
FLAG MODIFICATI: carry, zero e segno. 

DEC: DECrement M=(M)-1 

Decrementa il contenuto della cella di memoria specificata. Il 
risultato viene posto nella cella stessa. 

INDIRIZZAMENTO: assoluto - pagina 0 - indicizzato X - pagina 0 
indicizzato X. 

FLAG MODIFICATI: zero e segno. 

DEX: DEcrement X register X=(XH1 

Decrementa il contenuto del registro X. Il risultato viene posto 
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nello stesso registro. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 

DEY: DEcrement Y register Y=(Y)-1 

Decrementa il contenuto del registro Y. Il risultato viene posto 
nello stesso registro. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 

EOR: Exclusive OR A=(A)VDATO 

Esegue l'OR esclusivo tra l'accumulatore e il dato specificato. 

Il risultato viene posto nell'accumulatore. 

INDIRIZZAMENTO: immediato - assoluto - pagina 0 - pagina 0 

indicizzato X - indicizzato X e Y - indiretto indicizzato - 
indicizzato indiretto. 

FLAG MODIFICATI: zero e segno. 

INC: INCrement M=(M)+1 

Incrementa il contenuto della cella di memoria specificata. Il 
risultato viene posto nella cella stessa. 

INDIRIZZAMENTO: assoluto - pagina 0 - indicizzato X - pagina 0 
indicizzato X. 

FLAG MODIFICATI: zero e segno. 

INX: INcrement X register X=(X)+1 

Incrementa il contenuto del registro X. Il risultato viene posto 

nello stesso registro. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 

INY: INcrement Y register Y=(Y)+1 

Incrementa il contenuto del registro Y. Il risultato viene posto 

nello stesso registro. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: zero e segno. 

LSR: Logic Shift Right C=B0=B1=B2=B3=B4=B5=B6=B7=0 

Sposta il contenuto dell'accumulatore o della cella di memoria 
specificata di una posizione bit verso destra. Il contenuto del 
bit 7 diventa 0 e il contenuto del bit 0 viene posto nel flag di 
carry. Questa operazione equivale ad eseguire una divisione inte¬ 
ra per 2. 

INDIRIZZAMENTO: accumulatore - assoluto - pagina 0 - indicizzato 
X pagina 0 indicizzato X. 

FLAG MODIFICATI: carry, zero e segno. 

ORA: OR Accumulator A=(A)VDATO 
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Esegue l'OR logico tra l'accumulatore e il dato specificato. Il 
risultato viene posto nell'accumulatore. 

INDIRIZZAMENTO: immediato - assoluto - pagina 0 - indicizzato X e 

Y - pagina 0 indicizzato X - indiretto indicizzato - indicizzato 
indiretto. 

FLAG MODIFICATI: zero e segno. 

ROL: Rotate Left C=B7=B6=B5=B4=B3=B2=B1=B0=C 

Ruota il contenuto dell'accumulatore o della cella di memoria 

specificata di una posizione bit verso sinistra. Nel bit 0 viene 
posto il contenuto del flag di carry, nel quale viene trasferito 
il contenuto del bit 7. 

INDIRIZZAMENTO: accumulatore - assoluto.- pagina 0 - indicizzato 
X - pagina 0 indicizzato X. 

FLAG MODIFICATI: carry, zero e segno. 

ROR: Rotate Right C=B0=B1=B2=B3=B4=B5=B6=B7=C 

Ruota il contenuto dell'accumulatore o della cella di memoria 

specificata di una posizione bit verso destra. Nel bit 7 viene 
posto il contenuto del flag di carry, nel quale viene trasferito 
il contenuto del bit 0. 

INDIRIZZAMENTO: accumulatore - assoluto - pagina 0 - indicizzato 
X -■ pagina 0 indicizzato X. 

FLAG MODIFICATI: carry, zero e segno. 

SBC: SuBtract with Carry A=(A)-DAT0-C 

Sottrae al contenuto dell'accumulatore il dato specificato. Il 
risultato viene posto nell'accumulatore. Devi usare il carry al 

contrario di come lo usi per l'istruzione ADC: carry a 0 vuol di¬ 

re prestito; devi quindi porre a 1 il carry prima di eseguire 
un'operazione SBC senza prestito. Dopo un operazione SBC si ha: 
C=1 indica A>=DAT0, Z=1 indica A=DAT0. 

INDIRIZZAMENTO: immediato -> assoluto - pagina 0 - indicizzato X e 

Y - pagina 0 indicizzato X - indiretto indicizzato - indicizzato 
indiretto. 

FLAG MODIFICATI: carry, zero, overflow e segno. 


8.4.4 ISTRUZIONI DI CONTROLLO DEL FLUSSO 
BCC: Branch on Carry Clear 

Salta all'indirizzo specificato se il flag di carry contiene Q 
INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 


BCS: Branch on Carry Set 

Salta all'indirizzo specificato se il flag di carry contiene 1. 
INDIRIZZAMENTO: relativo. 
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FLAG MODIFICATI: nessuno. 


BEQ: Branch on EQual 

Salta all'indirizzo specificato se il flag di zero contiene 1 

(cioè' se il risultato e' 0). 

INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 

BMI: Branch on MInus 

Salta all'indirizzo specificato se il flag di segno contiene 1 

(cioè' se il risultato e' negativo). 

INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 

BNE: Branch on Not Equal 

Salta all'indirizzo specificato se il flag di zero contiene 0 

(cioè* se il risultato e' diverso da 0). 

INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 

BPL: Branch on PLus 

Salta all'indirizzo specificato se il flag di segno contiene 0 
(cioè' se il risultato e' positivo o uguale a 0). 

INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 

BRK: BReaK 

Salva nello stack (PC)+2 e i flag, salta all'indirizzo indicato 
da $FFFE $FFFF (come per gli interrupt). Per riconoscere se il 
salto e' stato generato da un interrupt o dall' istruzione BRK 
devi guardare il flag di break salvato nello stack. BRK viene 
usato per trovare errori nel programma (come lo STOP del BASIC). 
INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: break 

BVC: Branch on oVerflow Clear 

Salta all'indirizzo specificato se il flag di overflow contiene 0 
(cioè' se non si e' verificato overflow). 

INDIRIZZAMENTO: relativo. 

FLAG MODIFICATI: nessuno. 

BVS: Branch on overflow Set 

Salta all'indirizzo specificato se il flag di overflow contiene 1 
(cioè' se si e' verificato overflow). 


INDIRIZZAMENTO: relativo. 
FLAG MODIFICATI : nessuno. 
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JMP: JuMP 

Salta all'indirizzo specificato. 

INDIRIZZAMENTO: assoluto - indiretto.FLAG MODIFICATI: nessuno. 
JSR: Jump SubRoutine 

Salva nello stack (PC)+2 (l'indirizzo prima dell'istruzione che 
segue JSR) , salta all'indirizzo specificato. 

INDIRIZZAMENTO: assoluto. 

FLAG MODIFICATI: nessuno. 

NOP: No OPeration 

Non fa nulla per due cicli di clock. Si usa per cicli di ritar- 
do. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: nessuno. 

RTI: ReTurn from Interrupt 

Estrae dallo stack il registro di stato e il program counter che 
erano stati salvati da una chiamata ad interrupt o da una istru¬ 
zione BRK. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: tutti. 

RTS: ReTurn from Subroutine 

Estrae dallo stack il program counter che era stato salvato da 
una istruzione JSR e lo incrementa di 1. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: nessuno. 


8.H.5 ISTRUZIONI SUI FLAG. 


CLC: CLear Carry 
Viene azzerato il flag di 
un'istruzione ADC. 

INDIRIZZAMENTO: implicito 
FLAG MODIFICATI: carry. 

CLD: CLear Decimai D=0 

Viene azzerato il flag BCD. Quando questo flag contiene 0, l'ALU 
esegue le operazioni aritmetiche in binario. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: decimale. 

CLI: CLear Interrupt 1=0 

Viene azzerato il flag di interrupt. Quando questo flag contiene 
0 la CPU risponde alle chiamate d'interrupt. 


C=0 

carry. Generalmente si usa prima di 
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INDIRIZZAMENTO: implicito. 
FLAG MODIFICATI: interrupt. 


CLV: CLear oVerflow V=0 

Viene azzerato il flag di overflow. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: overflow. 

SEC: SEt Carry C=1 

Viene posto a uno il flag di carry. Generalmente si usa prima di 
un'istruzione SBC. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: carry. 

SED: SEt Decimai D=1 

Viene posto a uno il flag decimale. Quando questo flag contiene 
1, l'ALU esegue le operazioni aritmetiche in BCD. 

INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: decimale. 

SEI: SEt Interrupt 1=1 

Viene posto a uno il flag di interrupt. Quando questo flag 
contiene 1 la CPU non risponde alle chiamate d'interrupt. 
INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: interrupt. 


8.11.6 OPERAZIONI SULLO STACK 


PHA: PusH Accumulator STACK=(A) ; SP=SP-1 

Il contenuto dell'accumulatore viene memorizzato nella cella di 
indirizzo $100+(SP); lo stack pointer viene decrementato. 
INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: nessuno. 

PHP: PusH Processor status STACK=(P); SP=SP-1 

Il contenuto del registro di stato viene memorizzato nella cella 
di indirizzo $100+(SP); lo stack pointer viene decrementato. 
INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: nessuno. 

PLA: PuLl Accumulator A=(STACK); SP=SP+1 

Il contenuto della cella di indirizzo $100+(SP) viene caricato 
nell'accumulatore; lo stack pointer viene incrementato. 
INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: nessuno. 
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PLP: PuLl Processor status P=(STACK); SP=SP+1 

Il contenuto della cella di indirizzo $100+(SP) viene caricato 
nel registo di stato; lo stack pointer viene incrementato. 
INDIRIZZAMENTO: implicito. 

FLAG MODIFICATI: tutti. 8.5 LA GESTIONE DELL'INTERRUPT 

Abbiamo visto nel Paragrafo 7.3 che la CPU possiede un piedino da 
cui riceve le chiamate di INTERRUPT. Puoi immaginare un segnale 
di interrupt come la chiamata HARDWARE di un sottoprogramma; la 
subroutine cioè' non viene eseguita in risposta a una chiamata da 
programma, ma a un segnale logico che giunge a un piedino della 
CPU. Il TED e' l'unico dispositivo collegato alla linea di 
richiesta delle interruzioni; ogni 50-esimo di secondo la CPU 
riceve da TED una richiesta di interruzione. Il SISTEMA OPERATIVO 
usa questo segnale per eseguire alcune operazioni a intervalli di 
tempo regolari, come aggiornare TI$, o memorizzare eventuali 
caratteri premuti sulla tastiera. 

Il programma che segue, in ASSEMBLER, ti mostra come la routine 
di interrupt, che può' essere disabilitata, controlla lo stato 
della tastiera. Puoi introdurlo in memoria usando il MONITOR. 

A 3000 CLI 
A 3001 LDA $C6 
A 3003 STA $0C00 
A 3006 CLC 
A 3007 BCC $3001 ' 

Per avviarne l'esecuzione puoi scrivere: 

G 3000. 

Vedrai che il primo carattere in alto a sinistra nello schermo 
cambia in funzione del tasto che premi sulla tastiera; questo 
fatto parrebbe strano sapendo che la cella di indirizzo $C6 e' 
una normale cella di memoria in pagina 0, e non un registro di 
ingresso. Se arresti l'esecuzione del programma (l'unico modo e' 
il tasto di RESET, eventualmente STOP-RESET) e cambi l'istru¬ 
zione in $3000, cioè' cambi CLC in SEI (mascheri le interru¬ 
zioni), ti accorgi, avviando nuovamente il programma, che la 
tastiera non influisce piu' sul quadratino del video. Ciò' e' 
dovuto al fatto che la ROUTINE DI INTERRUPT non viene eseguita 
quando il FLAG di INTERRUPT e' a 1 . 

Nel Paragrafo 10.6 riportiamo un sottoprogramma, in linguaggio 
macchina, che intercetta la routine di servizio dell'INTERRUPT 
del SISTEMA OPERATIVO. 

Quando la CPU risponde a una chiamata di interrupt salva 
automaticamente nello STACK i seguenti dati: 

.gli 8 bit piu' significativi del P.C. 

.gli 8 bit meno significativi del P.C. 

.il registro di STATO del processore 
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e produce un salto indiretto a $FFFE. 

E' cura del SISTEMA OPERATIVO effettuare tutte le operazioni che 
si devono eseguire in risposta a un interrupt. Per tornare dalla 
routine di gestione dell' interrupt esiste l'istruzione RTI, che 
e' diversa da RTS perche' recupera dallo STACK anche lo stato del 
processore, oltre a non incrementare il P.C. 


8.6 USO DEL COMANDO MONITOR DEL BASIC 

La funzione di questo comando BASIC e' quella di portare in 
ambiente MONITOR il calcolatore. Il MONITOR e' un programma in 
linguaggio macchina che permette di scrivere facilmente program¬ 
mi in ASSEMBLER e in linguaggio macchina. Esso comprende un 
MONITOR di linguaggio macchina, un MINI-ASSEMBLATORE e un 
DISASSEMBLATORE. I programmi in linguaggio macchina, scritti 
utilizzando il MONITOR, possono essere utilizzati autonomamente 
oppure come sottoprogrammi molto veloci per programmi BASIC. 

I comandi disponibili da MONITOR sono: 

. A ASSEMBLA: assembla un'istruzione all'indirizzo speci¬ 
ficato. 

. C CONFRONTA: confronta due blocchi della memoria e segnala le 
differenze, 

. D DISASSEMBLA: disassembla il codice della 7501 a partire 
dall'indirizzo specificato. 

. F RIEMPI: riempie la memoria con il numero specificato. 

. G ESEGUI: avvia l'esecuzione del programma dall’indirizzo 
specificato. 

. H CERCA: ricerca nella memoria tutte le posizioni di deter¬ 
minati valori di un gruppo di numeri. 

. L CARICA: carica un file dal nastro o dal disco. 

. M VISUALIZZA MEMORIA: visualizza i valori esadecimali delle 
locazioni di memoria 

R VISUALIZZA REGISTRI: visualizza i registri della 7501, che tu 
puoi cambiare. 

. S SALVA: salva su nastro o su disco un blocco di memoria. 

. T TRASFERISCI: trasferisce un blocco di memoria in un'altra 
posizione. 

. V VERIFICA: confronta un blocco della memoria con un file su 
nastro o su disco. 

. X ESCI: esce dal MONITOR e ritorna al BASIC. 

. . PUNTO: assembla una riga del codice della 7501. 

. > (maggiore di): modifica la memoria. 

. ; (punto e virgola): modifica i registri della CPU. 

La locazione $7F8 controlla se il MONITOR vede la ROM o la RAM 
sopra $8000. Se questa locazione contiene 0, il MONITOR visua- 
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lizza l'interprete BASIC e il KERNAL (routine del SISTEMA 
OPERATIVO) dopo un comando di disassemblaggio o di stampa, cioè' 
il contenuto della memoria ROM di indirizzo sopra $8000. Se que¬ 
sta locazione contiene $80, il MONITOR visualizza la RAM che sta 
sotto l'interprete BASIC e il KERNAL. Ciò' non e' partico¬ 
larmente utile nella macchina originale, ma diventa conveniente 
per lo sviluppo di programmi in linguaggio macchina per chi 
possiede l'espansione di memoria da 64K. Nota che la locazione 
$7F8 non ha alcuna influenza sul comando G. Il comando G avvia 
l'esecuzione nella mappa di memoria ROM senza tener conto 
dell'impostazione della locazione $7F8. 


Si accede al MONITOR scrivendo: MONITOR 

la risposta del sistema e' la visualizzazione dei registri del¬ 
la 7501 e il cursore lampeggiante. Il cursore rappresenta il 
"prompt" che ricorda che il MONITOR e' in attesa dei comandi. 


I comandi, che passiamo a descrivere, fanno Uso di parametri; 
tutti i parametri sono da intendere in forma esadecimale, li 
scriviamo non preceduti dal dollaro, tra un parametro e l'altro 
si può' porre uno spazio oppure una virgola. 


A introduce una riga di codice ASSEMBLER. 

SINTASSI: A <indirizzo> <codice operativo mnemonico> <operando> 
<indirizzo>: locazione della memoria dove collocare il codice 
operativo. 

<codice operativo mnemonico;»: codice mnemonico dell'istruzione da 
assemblare, cosi' come e' descritto nel Paragrafo 8.4 e nell'AP- 
PENDICE B. 

<operando>: operando, quando richiesto, può' essere di una qual¬ 
siasi delle modalità' d'indirizzamento ammesse. Per le modalità' 
di indirizzamento in pagina zero si deve indicare un numero 
esadecimale di 2 cifre; ad esempio: LDA $10. Per indirizzi di 
pagina-non zero vengono richiesti numeri esadecimali di 4 cifre; 
ad esempio: LDA $1000. Per 1'indirizzamento immediato si deve 
porre il segno # prima del numero a 2 cifre esadecimale che 
rappresenta l'operando; ad esempio: LDA #$FF. 

Alla fine della riga devi premere RETURN. Se nella riga risul¬ 
tano degli errori, viene visualizzato un punto di domanda ad 
indicare un errore e il cursore si sposta alla riga seguente. Per 
correggere eventuali errori puoi tornare su con il cursore e 
modificare la linea in modo da eliminare l'errore. 

Qui di seguito listiamo il programma LEGGIJ0YASS, che puoi intro¬ 
durre in memoria ricopiandolo con il MONITOR, oppure che si cari¬ 
ca automaticamente in memoria usando il programma BASIC TEST 
LEGGEJOYASS. 
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MONITOR 

PC SR OC XR VR SP 
; 8000 08 00 00 00 F8 


3000 

A2 

FB 


LDX 

44$FB 

3002 

78 



SEI 


3003 

8E 

08 

FF 

STX 

SFF08 

3006 

AD 

08 

FF 

LDA 

SFF08 

3089 

8E 

08 

FF 

STX 

$FF08 

388C 

CD 

08 

FF 

CMP 

5FF08 

300F 

DO 

F2 


BNE 

$3003 

3011 

58 



CLI 


3012 

29 

4F 


AND 

44S4F 

3014 

C9 

10 


CMP 

44510 

3016 

90 

02 


BCC 

$301A 

3018 

09 

80 


ORA 

44$80 

301A 

29 

8F 


AND 

44$ 8 F 

301C 

49 

8F 


EOR 

44$ 8 F 

301E 

AA 



TAX 


301F 

AO 

FD 


LDV 

44SFD 

3021 

78 



SEI 


3022 

8C 

08 

FF 

STV 

SFF08 

3025 

AD 

08 

FF 

LDA 

SFF08 

3028 

8C 

08 

FF 

STV 

SFF08 

302B 

CD 

08 

FF 

CMP 

SFF08 

302E 

DO 

F 2 


BNE 

$3022 

3030 

58 



CLI 


3031 

29 

8F 


AND 

4458F 

3033 

49 

8F 


EOR 

4458F 

3035 

A8 



TAV 


3036 

60 



RTS 



Questa routine ti permette di leggere lo stato dei joystick, per 
usarli nei tuoi programmi in linguaggio macchina. Come puoi 
osservare il programma fa uso di un registro di I/O, in parti¬ 
colare il registro $FF08, il cui funzionamento e' stato descrit¬ 
to nel Paragrafo 4.6. Puoi osservare nelle Figura 4.7a e 4.7b co¬ 
me sono collegati i due joystick. 

Le istruzioni da $3000 a $3011 caricano nell'accumulatore lo sta¬ 
to dei 5 bit collegati al Joystick 1. Da $3012 a $301E diamo un 
formato piu' adatto al risultato e lo poniamo nel registro X. Da 
$301F a $3030 poniamo in A lo stato del joystick 2 e da $3031 a 
$3036 adattiamo il formato del risultato ponendolo nel registro 
Y. Alla fine della routine il registro X contiene lo stato del 
joystick 1, e Y quello del joystick 2. 

Nella Figura 8.6 puoi vedere il significato dei bit dei registri 
X e Y in relazione alle posizioni dei joystick. I bit a 1 indi¬ 
cano che il tasto e' premuto, o la leva e' spostata. Il program¬ 
ma TEST LEGGIJOYSTICK visualizza lo stato dei registri X e Y al¬ 
la fine della routine. Il codice del programma inoltre e' conte¬ 
nuto nelle linee DATA, e viene posto in memoria nella linea 20. 
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7 6 5 4 3 2 1 0 



X 0 0 0 > 

c > 

; x x 

♦ 

FUOCO 



L 


ALTO 

BASSO 

SINISTRA 


I- DESTRA 

X = JOYSTICK 1 
Y = JOYSTICK 2 


Figura 8.6 Formato dei risultati del sottoprogramma LEGGIJOYASS 


E' assai importante non sbagliare neanche uno dei dati, poiché* 
in tal caso il sistema potrebbe arrestarsi, e non riprendere 
l'esecuzione neanche premendo RESET. Per questo la linea 25 arre-* 
sta il programma se la somma dei dati contenuti nelle linee DATA 
differisce dal valore corretto: ricontrolla bene tutti i dati in 
caso di errore, e non eliminare la linea 28. 

0 REM TEST ROUTINE LETTURA JOYSTICK IN ASSEMBLER 
5 REM LA ROUTINE UA DA 3000H A 3036H COMPRESI 
IO P0KE56,48 ;P0KE55,0 CLR 

20 F0RI=12288T012342 :READA:Q=Q+A■POKEI,A :NEXT 
25 IEQO7420THENSTOP 
30 DO 

40 SYS12288:A=PEEK<2035):B=PEEK<2036> 

50 GOSUB80PRINT, 

60 A=B:G0SUB80:PRINT 
70 LOOP 

80 EORI=7TO0STEP-i IEAAND2fITHENPRINT”1"; :ELSEPR 
INT"0“; 

90 NEXT: RETURN 

100 DATA162,251,120,142,8,255,173,8,255,142,8 
105 DATA255,205,8,255,208,242,88,41,79,201 
110 DATA16,144,2,9,128,41,143,73,143,170,160 
115 DATA253,120,140,8,255,173,8,255,140,8,255 
120 DATA205,8,255,208 
130 DATA242,88,41,143,73,143,168,96 


C confronta due blocchi della memoria e segnala le 

differenze. 

SINTASSI: C <indirizzo inizio blocco 1> Cindirizzo fine blocco 1> 
<indirizzo inizio blocco 2> 


277 




Esempio: C 1000 1035 2010 

Confronta i contenuti delle celle che vanno da $1000 a $1035 

compreso, con quelli delle celle che vanno da $2010 a $20*15 

compreso. Se qualche byte differisce, ne viene stampato l'indi¬ 
rizzo. 

D disassembla il contenuto della cella specificata. 

SINTASSI: D <indirizzo iniziale? <indirizzo finale? 
indirizzo iniziale?: numero esadecimale di al massimo 4 cifre 
che indica l'indirizzo dell'istruzione da disassemblare. Se non 
fornito vengono disassemblati 20 (decimale) byte a partire 
dall'ultimo disassemblato. 

«(indirizzo finale?: 4 cifre esadecimali che indicano a quale 
indirizzo smettere di disassemblare. Se non fornito vengono 

disassemblati 20 byte. 

F riempie una zona di memoria con il numero speci¬ 

ficato. 

SINTASSI: F Cindirizzo iniziale? Cindirizzo finale? <dato? 
Esempio: F 0C00 0D00 01 

riempie la zona di memoria da $0C00 a $0D00 con il numero $01. 
Tutti i parametri sono obbligatori. 

G avvia l'esecuzione di un programma contenuto in memo¬ 

ria. 

SINTASSI: G «(indirizzo? 

Il parametro indirizzo? può' essere omesso: in tal caso il 
programma parte dall'indirizzo indicato nel registro PC (vedi il 
comando R). 

H ricerca nella memoria le posizioni di determinati 

byte. 

SINTASSI: H Cind. iniz.? <ind. finale? <sequenza di byte? oppure 
<'sequenza di caratteri? 

Cerca nelle locazioni specificate la sequenza di byte speci¬ 
ficata. 

Esempio: H 1000 2000 1 DE F 

cerca se tra $1000 e $2000 e' contenuta la sequenza: $01 $DE $0F. 
Se tale sequenza e' presente, viene stampato l'indirizzo del pri-> 
mo byte della sequenza, e se e' presente piu' volte, sono stam¬ 
pati tutti gli indirizzi dove inizia la sequenza specificata. 
Esempio: H 1000 4000 'COMMODORE 

cerca se tra le celle $1000 e $4000 se e' presente la sequenza di 
byte il cui codice ASCII compone la stringa "COMMODORE". Nota che 
i caratteri sono preceduti da un apice (SHIFT--7). 

L carica un file da nastro o da disco. 

SINTASSI: L <"nomefile"? «(numero unita'? 
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Se non si specifica il numero di unita' si considera il registra¬ 
tore a cassetta. Il file viene caricato al suo indirizzo origi¬ 
nale (nella stessa posizione in cui era quando e' stato salva¬ 
to) . 

Esempio: L 

carica da nastro il primo programma che trova. 

Esempio: L "ROUTINE",8 

carica in memoria da disco il file chiamato ROUTINE. 

M visualizza i valori esadecimali delle locazioni di 

memoria specificate. 

SINTASSI: M <ind. iniz.> <ind. finale> 

Gli operandi hanno lo stesso significato che nel comando D. I 
byte stampati possono essere modificati passandoci sopra col 
cursore, cambiandoli e premendo RETURN. 

Esempio: M 1000 

mostra il contenuto di 96 byte a partire dall'indirizzo 1000. 

R visualizza il valore dei registri della CPU. 

SINTASSI: R 

Naturalmente la CPU continua ad eseguire il programma MONITOR e i 
suoi registri cambiano continuamente. I registri che ti vengono 
mostrati (e di cui puoi cambiare il contenuto passandoci sopra e 
battendo RETURN), sono quelli che saranno caricati al momento 
dell'avvio del programma, e che sono stati prelevati dalla CPU al 
momento del BRK. L,'istruzione BRK porta al MONITOR, e vengono 
automaticamente mostrati i contenuti dei registri. 

S salva su nastro o disco un blocco di memoria. 

SINTASSI: S "N0MEPR0GRAMMA" <unita'> <indirizzo iniziale» <indi-> 
rizzo finale» 

Tutti i parametri sono obbligatori, tranne il nome del file su 
cassetta. L'indirizzo finale deve essere uno piu' dell'ultimo 
byte da salvare: 

S "FILE" 08 1001 11F3 

Salva su disco il programma di nome FILE a partire dall'in¬ 
dirizzo $1001 fino all'indirizzo $11F2 compreso. 

T trasferisce segmenti di memoria da una zona a un'al¬ 

tra. 

SINTASSI: T <indir. iniz.» <indir. finale» Cnuovo indirizzo» 

I dati possono essere trasferiti ovunque nella RAM. Purtroppo un 
errore del sistema non permette di trasferire un segmento di 
memoria sopra se stesso. 

Esempio: T 1400 1600 1401 

non produce l'effetto di spostare di una posizione il segmento 
verso l'alto nella memoria, ma riempie tutta l'area $1401 $1601 
con il contenuto della cella $1400, distruggendo il vecchio 
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contenuto. Ciò' e' dovuto probabilmente all'errore di eseguire il 
trasferimento del segmento sempre dal basso verso l'alto, mentre 
sarebbe corretto trasferire dal basso verso l'alto nei trasfe¬ 
rimenti dall'alto verso il basso, e viceversa. Prova per eser-> 
cizio a scrivere un programma che trasferisce blocchi di memo¬ 
ria, e vedrai meglio quali difficolta' incontra il program¬ 
matore. La versione del SISTEMA OPERATIVO a cui ci riferiamo e' 
la numero i| per la versione PAL (la cella $FF80 della ROM contie¬ 
ne $8^). E' possibile che in versioni successive l'errore sia 
stato eliminato. 

V verifica che un file contenga gli stessi dati conte-» 

nuti in memoria. 

SINTASSI: V <"nomefile"> <unita'> 

Le regole sono le stesse di L (carica) ma il file non viene cari¬ 
cato in memoria. Se il file differisce dal contenuto della memo¬ 
ria viene stampato il messaggio ''VERIFYING ERROR", altrimenti non 
viene stampato niente. 

X torna in ambiente BASIC. 

SINTASSI: X 

Il MONITOR ti pone in grado di alterare celle di memoria e di 
compiere molte operazioni pericolose. E' importante non alterare 
il contenuto di celle di memoria di cui non conosci la funzione, 
soprattutto nella zona di lavoro dell’interprete BASIC e del 
SISTEMA OPERATIVO ($0000 - $0800) e nell’I/O ($FD00 - $FFFF). 
Può' capitare assai facilmente che il sistema impazzisca a causa 
di operazioni scorrette sulla memoria. Talvolta il comando X non 
ti porta al BASIC: quando ciò' capita e' perche' il sistema e' in 
umo stato anomalo, da cui può' uscire solo con un RESET. 
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CAPITOLO 9 


LA GRAFICA 


9.1 INTRODUZIONE 

In questo capitolo ti mostriamo alcune caratteristiche avanzate 
del TED. Grazie alle tecniche esposte ti sara' possibile otte¬ 
nere nuovi tipi di effetti grafici e di animazione. 


9.2 CARATTERI PROGRAMMABILI 

Sai già' come il COMMODORE PLUS- 1 ) possa visualizzare i caratteri 
sul video, e sai anche che le immagini di questi caratteri (una 
serie di 8 byte per ogni carattere) sono custodite in ROM per-- 
che' non vengano perse ogni volta che spegni il calcolatore. Esi¬ 
ste pero' un modo per "dire" a TED di leggere le descrizioni dei 
caratteri in RAM e per indicargli l'indirizzo del primo byte del 
primo carattere. Per far leggere TED dalla RAM devi porre a 0 il 
bit 2 del registro 12 (indirizzo 65298 ($FF12)) con l'istru¬ 
zione: 

POKE 65298, PEEK(65298) AND 251 

Per indicare l'indirizzo del primo byte del primo carattere, de¬ 
vi porre nei bit 7->2 del registro 13 (indirizzo 65299 ($FF13)) la 
parte piu' significativa dell'indirizzo stesso, con l'istru¬ 
zione 

POKE 65299, (PEEK(65299) AND 3)+N 
dove N*256 = indirizzo desiderato 
e N e' un numero divisibile per 4 

Proviamo a programmare un carattere: per esempio il simbolo CBM 
che e' disegnato sul tasto in basso a sinistra della tastiera. 
Usando la stessa tecnica con cui sono definiti normalmente i 
caratteri, costruiamo una matrice 8 per 8 e riempiamola usando 0 
per i punti spenti e 1 per quelli accesi: 
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0 0 0 1 1 0 0 0 

0 0 11 1 0 0 0 

0 110 0 111 

0 110 0 110 
0 110 0 111 
0 0 11 1 0 0 0 

0 0 0 1 1 0 0 0 

00000000 

Ora dobbiamo fare un po' di conti: la prima riga (cioè' il primo 
byte del carattere) contiene il numero binario 00011000, cioè' 24 
decimale. Facendo lo stesso conto per le altre righe otteniamo i 
numeri decimali 24, 56, 103, 102, 103, 56, 24, 0. Questi numeri 
devono essere ora memorizzati nei primi 8 byte della nuova 
descrizione dei caratteri, programmando cosi' il carattere che ha 
D/CODE 0, cioè' la chiocciola (vedi Appendice D). Il programma 
GRAFI sposta la descrizione dei caratteri all'indirizzo 14336 
($3800), programma il carattere di D/CODE 0 con il simbolo CBM e 
il carattere di D/CODE 32 (lo spazio) con uno spazio: 


* * 

* * * 

* * * * * 

* * * * 

* # * * * 

* * * 

* * 


e REM GRAFI 

10 COLORO,1 : COLORI,7,5:COLOR4,1 
20 P0KE65299,<PEEK<65299)AND3)+240 
30 P0KE65298,PEEK<65298)AND251 
40 FORI = 0T07 

50 READA:POKE61440+I, A - P0KE61696+I,0 
60 NEXTI 

70 PRINTCHR$<147)CHR$<i42)''e" 

88 GETKEYAS 

90 P0KE65299,<PEEK<65299>AND3>+208 
100 P0KE65298,PEEK<65298)0R4 
110 »ATA24,56,103,102,103,56,24,0 


Fai girare il programma: vedrai comparire sullo schermo, in alto 
a sinistra, il carattere che abbiamo programmato. Se premi un 
qualunque tasto (tranne STOP) il carattere tornerà' ad essere una 
chiocciola e il programma finirà'; se premi il tasto STOP il 
programma finisce senza riportare la descrizione dei caratteri in 
ROM: quindi invece di vedere i caratteri normali vedrai, premen¬ 
do i tasti, dei caratteri casuali (tutti i caratteri di questo 
nuovo set che non abbiamo ancora programmato). 

COMMENTO A GRAFI : 

.10: schermo e bordo neri, caratteri azzurri. 

.20: descrizione dei caratteri in 14336 ($3800). 

.30: TED legge da RAM. 

.40/60: programma il carattere di D/CODE 0 con i dati relativi 
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al simbolo CBM, e il carattere di D/CODE 32 (indirizzo di parten¬ 
za 1 ^336+32*8 = 1*1592) con una serie dì zeri per ottenere uno 
spazio. 

.70: pulisce lo schermo, seleziona il set di caratteri maiusco¬ 
lo, e visualizza il carattere di D/CODE 0. 

.80: attende che sia premuto un tasto. 

.90: descrizione dei caratteri in $D000. 

.100: TED legge da ROM. 

.110: dati relativi al simbolo CBM. 

ATTENZIONE a non fare errori quando TED legge da RAM: infatti 
quando il sistema da' una segnalazione di errore mette automati^ 
camente TED in condizioni di leggere la ROM e, se l'indirizzo 
della descrizione dei caratteri era stato cambiato, TED si trove¬ 
rà' a leggere dei dati da indirizzi di ROM non esistenti; il 
risultato sara' ovviamente spiacevole. 


9.3 COPIA DEI CARATTERI DA ROM 

Non sempre, quando definisci un nuovo set di caratteri, vuoi 
ottenere un risultato completamente diverso dal contenuto della 
ROM: potrebbe capitarti di voler avere a disposizione tutte le 
lettere del set del COMMODORE PLUS -1 J e cambiare solo i caratteri 
grafici, o cambiare le lettere e conservare le cifre e i segni di 
punteggiatura. In questo caso dovrai copiare su RAM la parte del 
contenuto della ROM che ti interessa e poi definire, come hai 
già' visto, gli altri caratteri. Purtroppo il BASIC del COMMO¬ 
DORE PLUS-4 quando legge un dato dalla memoria lo legge sempre 
dalla RAM. L'unico modo di leggere i dati dalla ROM dei carat¬ 
teri e' quello di usare una semplice routine in linguaggio 
macchina. Il programma GRAF2 ha il compito di caricare in memo¬ 
ria (dall'indirizzo 8192 ($2000)) il programma GRAF3 e di farlo 
eseguire: 


6 REM GRAF2 

10 COLORO,i: COLORI,7,5 .COLOR4,1 
20 P0KE56,240 :P0KE55,0 :CLR:PR1NTCHRS <142> 
30 P0KE65299,<PEEK(65299>AND3>+240 
40 P0KE65298,PEEK<65298>AND251 
50 FORI = 0TO3i:READA:P0KE8192+I,A :HEXT 
60 SVS8192: NEW 

1000 0010169,208,133,4,169,240,133,6 
1010 DAT A160,0,132,3,132,5,177,3 
1020 DATA145,5,200,208,249,230,4,230 
1030 DATA6,165,4,201,216,208,239,96 
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MONITOR 

PC SR OC XR VR SP 

, eoee ee oo ee ee fo 


2000 

09 

DB 

LD0 

HSD0 

2002 

85 

04 

ST0 

$04 

2004 

09 

F0 

LD0 

t»$F0 

2006 

85 

06 

STO 

$06 

2008 

00 

00 

LDV 

#$00 

2000 

84 

03 

STV 

$03 

200C 

84 

05 

STV 

$05 

200E 

B1 

03 

LD0 

< $03),V 

2010 

91 

05 

STO 

($05),V 

2012 

C8 


INV 


2013 

DO 

F9 

BNE 

$200E 

2015 

E6 

04 

INC 

$04 

2017 

E6 

06 

INC 

$06 

2019 

05 

04 

LD0 

$04 

201B 

C9 

D8 

CMP 

#$D8 

201D 

DO 

EF 

BNE 

$20OE 

201F 

60 


RTS 



Potrebbe sembrare che il programma GRAF2 non produca alcun effet¬ 
to; in realta' i dati relativi ai caratteri si trovano ora in 
RAM. Prova infatti a scrivere una chiocciola sullo schermo e a 
dare quindi le istruzioni | h A/\ 

FOR 1=0 TO 7: POKE 14336+1 ,0 : 1 NEXT I. 

Appena premi RETURN la chiocciola sparisce perche' hai cancel¬ 
lato in RAM i dati relativi alla chiocciola del set maiuscolo: se 
selezioni il set minuscolo le chiocciole riappariranno la' dove 
erano sparite. 

COMMENTO A GRAF2 

.10: schermo e bordo neri, caratteri azzurri. 

.20: aggiorna i puntatori di fine memoria a 1 4336 ($3800) in mo¬ 
do che le variabili non cancellino i caratteri programmati. Sele¬ 
ziona il set di caratteri maiuscoli. 

.30: descrizione dei caratteri in 14336 ($3800). 

.40: TED legge da RAM. 

.50: pone il programma GRAF3 in memoria 

.60: esegue la routine GRAF3 e cancella il programma. 

.1000/1030: contengono i dati relativi a GRAF3. 


COMMENTO A GRAF3 
(con riferimento 
.2000/2002 pone 
tore 03“O4. 

.2004/2006 pone 
tore 05-09. 

.2008/200C pone 
puntatori: 03^04 


agli indirizzi esadecimali) 

208 ($D0) nel byte piu' significativo del punta- 

56 ($38) nel byte piu' significativo del punta- 

0 ($00) nei byte meno significativi dei due 

punta cosi' all'inizio della ROM dei caratteri e 
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05-06 punta all'inizio dell'area RAM in cui vogliamo trasferire ì 
caratteri. 

.20GE/2013 trasferisce una pagina ($100 corrisponde a 256 byte) 
dal byte puntato da 03-0H al byte puntato da 05-09. 

.2015/2017 incrementa i piu' significativi dei due puntatori in 
modo che puntino alla prossima pagina. 

.2019/201D se non ha ancora copiato 8 pagine (da $D000 a $D7FF) 
continua. 

.201F torna al BASIC. 

Il prossimo programma, GRAF^, ha il compito di trasferire in RAM 
i caratteri e sostituire le lettere del set MAIUSC0L0/GRAFIC0 con 
delle lettere gotiche. Esso usa ancora la routine GRAF3. 


e REM GRAF4 

10 COLORO,2,7 : COLORI,1 :C0L0R4,7,G 
20 PRINTCHR$<142> 

30 P0KE65299,<PEEK<65299)AND3>+240 
40 P0KE65298,PEEK(65298>AND251 
50 FORI=0TO3i : RE AD A: P0KE8192+I, A : NEXT 
60 SVS8192 

70 FORI=0T0215 :READA:POKE61440+I,A :NEXT 
80 SVS32768 

100O DATA169,208,133,4,169,240,133,6 
1010 DATA160,0,132,3,132,5,177,3 
1020 DATAI45,5,200^208,249,230,4,230 
1030 DATA6,165,4,201,216,208,239,96 
1040 DATA60,102,110,110,96,98,60,0 
1050 DATA48,72,20,34,62,34,65,0 
106O DATA92,34,66,124,66,34,92,0 
1070 DATA28,34,84,80,80,34,28,0 
1080 DATA88,100,66,66,66,100,88,0 
1090 DATA92,34,64,112,64,34,92,0 
1100 DATA92,34,32,120,32,32,64,0 
1110 DATA28>34,64,94,98,62,2,6 
1120 DATA28,34,32,60,34,34,36,0 
1130 DATA2,60,72,8,10,60,64,0 
1140 DATAI,2,2,2,34,68,56,0 
1150 DATA66,36,40,ii2,48,36,66,0 
1160 DATA24,36,32,32,32,33,94,0 
1170 DATA84,42,42,106,42,42,64,0 
1180 DATA66,50,42,106,42,42,68,0 
1190 DATA28,34,8i,8i,8i,34,28,0 
1200 DATA92,34,34,124,32,32,64,0 
1210 DATA56,84,34,2,12,26,124,0 
1220 DATA92,34,34,12O,36,34,66,0 
1230 DATA2,60,64,60,2,60,64,0 
1240 DATAI,126,48,80,80,33,30,0 
1250 DATA33,82,18,18,18,18,12,0 
1260 DATA76,178,34,34,34,20,8,0 
1270 DATA128,92,82,82,82,84,40,0 
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1280 DATA34,84,12,8,24,37,66,0 
1290 DATA66,164,36,36,26,66, 60,0 
1300 DATA62,2,4,8,18,32,62,0 

COMMENTO A GRAF4 

.10 ripristina le condizioni iniziali dello schermo. 

.20 seleziona il set MAIUSCOLO/GRAFICO. 

.30/40 indica a TED la nuova descrizione dei caratteri. 

.50 carica in memoria GRAF3. 

.60 esegue GRAF3. 

.70 pone nella memoria dei caratteri i dati riguardanti i carat-’ 
teri gotici. 

.80 inizializza il BASIC. 

.1000/1030 dati relativi a GRAF3. 

. 1 0^10/1 300 dati relativi ai nuovi caratteri. 

Dopo aver fatto girare questo programma il COMMODORE PLUS-4 e' 
pronto a funzionare ma può' rovinare la descrizione dei carat-> 
teri con le variabili stringa. Per evitare ciò' puoi dare le 
istruzioni 

POKE 56,56: POKE 55,0: CLR 

Queste istruzioni abbassano la fine della memoria a 14336 
($3800), dove inizia la descrizione dei caratteri. 

Ricorda sempre che un errore in queste condizioni porta TED a 
leggere da una ROM inesistente. Se ti dovesse capitare di avere 
una segnalazione di errore e non vuoi resettare puoi dare 
l'istruzione 

POKE 65298,PEEK(65298)AND251 

anche se non vedi i caratteri che stai scrivendo; essa resetta il 
bit di posizione 2 al valore 0. 


9.4 PROGRAMMI PER LA CREAZIONE DEI CARATTERI 

Programmare nuovi caratteri con il COMMODORE PLUS-4 e' facile ma 
non molto immediato: e' difficile cioè' "vedere" che 24, 56, 103, 
102, 103, 56, 24, 0 rappresentano un simbolo grafico. Sarebbe 
molto piu' comodo se si potesse disegnare direttamente il carat-> 
tere sullo schermo e farlo memorizzare senza tanti calcoli, PEEK 
e POKE. Il programma GRAF5 fa precisamente questo. E' commentato 
come al solito e puoi quindi eliminare facilmente certe parti che 
non ti interessano o aggiungerne altre per renderlo piu' adatto 
ai tuoi scopi. 


0 REM GRAF5 

10 COLORO,1:COLORI,7,5:C0L0R4,i 
15 PRINTCHRS(142)CHR$<8) 
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28 POKE56,240:POKE55,8:CLR 

38 US$=CHR$<147>+" PREMI FI PER USCIRE" 

40 KEY1,CHR$<133> 

108 PRINTCHR$<147> 

110 PRINT"0PZI0NI :":PRINT:PRIHT 
120 PRINT"1 CREA CARATTERE":PRIMT 
130 PRI NT"2 MEMORIZZA CARATTERE":PRINT 
140 PRINT“3 CORREGGE CARATTERE":PRINT 
150 PRINT"4 MOSTRA CARATTERI“:PRINT 
160 PRINT"5 SALVA SET DI CARATTERI":PRINT 
170 PRINT“6 CARICA SET DI CARATTERI”:PRINT 
180 PRINT"7 FINE" 

190 GETAS:IFVAL<A$)=0THEN190 
195 I=UAL < AS) 

200 ONIGOSUB1000,2000,3000,4000,5000,6000,7000 
210 GOTO100 
1000 PRINTUSS 

1010 F0RI=9T016:CHARi,16,I,"++++++++":NEXT 

1060 PC=2424 XC=0VC=0 

1070 P0KEPC,PEEK(PC)+128 

1080 GETKEVAS 

1090 A=ASC(A$>:SP=0 

1180 IFA=29ANDXCC7THENXC=XC+1-PC=PC+1:SP=1 

1110 IFA=157ANDXC>0THENXC=XC-1:PC=PC-1:SP=-i 

1120 IFA=17ANDVC<7THENVC=VC+1:PC=PC+48:SP=40 

1130 IFA=145ANDVO0THENVC=VC-1 : PC=PC-40 SP=-40 

1140 IF A=32THENPOKEPC+i024,81 

1150 IF A=20THENPOKEPC+1024,43 

1160 P0KEPC-SP,PEEK<PC-SP>-128 

1170 IFAO133THEN1070 

1180 FOR I = 0TO7 

1190 BY(I)=0 

1200 FORJ=0TO7 

1210 BV(I)=BY<I>-2tJ*<PEEK<3448+7-J+40*I)=81) 

1220 NEXTJ HEXTI 

1230 RETURN 

2000 PRINTCHRS<147) 

2010 PRINT"1 NORMALE" PRINT 

2020 PRINT"2 REVERSATO":PRINT 

2030 PRINT"3 SIMMETRIA VERTICALE":PRINT 

2040 PRINT"4 SIMMETRIA ORIZZONTALE":PRINT 

2050 PRINT"5 RUOTATO DI 90 GRADI 

2055 PRINT"IN SENSO ORARIO":PRINT 

2060 GETKEYAS 

2070 A=VAL<A$>:IFA=0ORA>5THEN2060 

2080 INPUT"‘CARATTERE NUMERO ";NCX 

2090 IFNCX>255ORNX<0THEN2080 

2100 ONAGOSUB2200,2300,2400,2500,2600 

2110 FORI=0TO7:POKE61440+8*NCX+I,BY<I>:NEXT 

2120 RETURN 

2200 RETURN 

2300 FORI=0TO7:BY<I)=255-BV<I):NEXT 
2310 RETURN 
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2400 FORI=0TO7 
2410 FORJ=0TO3 

2420 BD=< BV< I)AND2fJ>/2tJ:BV<I)=BV<I>-2tJ*BD 
2430 BS=<BV< I>AND2t<7-J))/'2t<7-J) 

2435 BV<I>=BV<I)-2t<7-J)»BS 

2440 BV( I>=BV<I>+2tJ*BS : BV< I >=BY< I >+2t< 7-J>*Bf> 

2450 NEXTJ,I 

2460 RETURN 

2500 F0RI=6T03 

2510 T=BV< I ) 

2520 BV<I>=0V<7-I) 

2530 BV<7-I)=T 

2540 NEXTI 

2550 RETURN 

2600 FORI=0TO7 

2610 B2<I>=BV<I)-BV<I>=0 

2620 NEXTI 

2630 FORI=0TO7 

2640 FORJ=0TO7 

2645 EX=<B2<I>0ND2f(7-J>)y2t<7-J> 

2650 BV(J)=BV< J>0R<2t<EXwI >»-<EXO0>> 

2660 NEXTJ, I 

2670 RETURN 

3000 PRINTCHR$<147> 

3010 INPUT 1 'CARATTERE DA CORREGGERE ”;NCX 
3020 IFNC/O255ORNXC0THEN3010 
3030 PRINTUS$ 

3040 FORI=1TO0:PRINTCHR$<17>;:NEXTI 
3050 FORI = 0TO7 

3660 F0RJ = 1T016:PRINTCHR$< 32>; :NEXT 
3070 FORJ=0TO7 

3080 IFPEEKC61440+8*NCX+I)AND2t<7-J>THENSI=-l 
3085 IFSITHENPRINTCHR$<209>; :SI=0:GOTO3100 
3090 PRINTCHRS < 43); 

3100 NEXTJ PRINT:NEXTI 
3110 GOTO1060 

4000 PRINTCHRS<147)"PREMI FI PER TORNARE” 

4005 PRINTCHR$<17>‘'PREMI I TASTI CORRISPONDENTI" 

4006 PRINT"AI CARATTERI CHE UUOI VEDERE” 

4010 FORI=1TO2000:NEXTI 

4020 PRINTCHR$(147); 

4O30 P0KE65298,PEEK<65298>AND251 
4035 P0KE65299,<PEEK<65299>AND3>+240 
4840 GETKEVAS 

4050 IFA$OCHRS<133>THENPRINTA$; GOTO404O 
4060 P0KE65298,PEEK<65298>0R4 
4070 P0KE65299,<PEEK(65299>AND3)+208 
4080 COLORI,7,5RETURN 
5000 PRINTCHRS(147> 

5010 PRINT"DISCO O NASTRO ?” 

5015 GETDU$ : I FDVS<>"N"ANDDUSO”D”THEN50i5 
5020 PRINT 

5030 INPUT"SET NUMERO ";NSX 
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5848 PRINT 

5050 PRINT"FINO 0 CHE CARATTERE UUOI SALUARE 

5055 INPUTNCX 

5060 I FNCX>255THEN5040 

5070 IFDU$="N“THEN5500 

5080 0PENi,8,2,"e:SET tt"+STR$<NSX>+",S,W" 

5082 PRINT:PRINTDSS 

5085 IFDSTHENFORI=±TO2000:NEXT:CLOSEi:RETURN 
5090 PRINTUÌ,CHRS(NCX);:FORI=0TO<NCX+i>*8-1 
5100 PRINTtti,CHR$<PEEK<61440+I> >; 

5110 NEXTI 
5120 CLOSEI 
5130 RETURN 

5500 0PEN1,1,1,"SET tt"+STR$<NS/0 

5510 PRINTtti,CHR$<NCX>; : FORI=0TO<NCX+i>*8-i 

5520 PRINTttl,CHRSCPEEK<61440+1>>; 

5530 NEXTI 

5540 CLOSEI 

5550 RETURN 

6000 PRINTCHRSt147) 

6010 PRINT''DISCO 0 NASTRO ?" 

6015 GETOVS: IFDUS<> ,, N ,, ANDDUSO"0"THEN6015 
6020 PRINT 

6030 INPUT“SET NUMERO “;NSX 
6070 IFDVS="N"THEN6500 

6080 0PEN1,8,2,"SET tt"+STR$<NSX>+",S,R" 

6082 PRINT=PRINTDS$ 

6085 IFDSTHENFOR I=1TO2000:NEXT:CLOSEI: RETURN 
6090 GETtti,ASNCX=ASC<A$>:FORI=0TO(NCX+1>*8-1 
6100 GETtti, AS:POKE61440+I,ASC<AS+CHRS<0>) 

6110 NEXTI 
6120 CLOSEI 
6130 RETURN 

6500 OPEH1,1,0,"SET tt"+STRS<NSX> 

6510 GETtti, AS-NCX=ASC< AS):FORI=0TOINCX+i>Z*8-i 
6520 GETtti,AS:POKE61440+I,ASC<AS + CHRS<0> > 

6530 NEXTI 
6540 CLOSEI 
6550 RETURN 

7000 PRINTCHR$<17>"SICUR0 ?" 

7010 GETXEVAS 

7020 IFA$="S"THENSVS32768 

7030 RETURN 


Il programma GRAF5 può' essere diviso in 14 sezioni ben distin¬ 
te: 

-1: 10-40: inizializza il calcolatore. 

-2: 100-210: mostra il menu' e salta all'opzione richiesta. 

-3: 1000-1230: ti permette di disegnare un nuovo carattere e 
riempie un vettore con i dati relativi al carattere disegnato. 
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-4 : 2000-2120: mostra il menu* di memorizzazione dei carat¬ 
teri, salta alla routine per il tipo di operazione richiesta sul 
vettore e memorizza il carattere. 

-5: 2200: lascia il vettore invariato: e' stata messa per 
rispondere alla chiamata della linea 2100. 

-6: 2300-2310: pone nel vettore il "negativo" del carattere 
contenuto prima. 

-7: 2400-2460: pone nel vettore il carattere che gode di simme¬ 
tria verticale rispetto a quello contenuto prima. 

-8: 2500-2550: pone nel vettore il carattere che gode di simme¬ 
tria orizzontale rispetto a quello contenuto prima. 

-9: 2600-2670 : pone nel vettore un carattere ruotato di 90 gra¬ 
di in senso orario rispetto a quello contenuto prima. Chiamando 2 
volte questa routine otterrai una rotazione di 180 gradi. 
Chiamandola 3 volte otterrai una rotazione di 90 gradi in senso 
antiorario. 

-10: 3000-3110: riempie il vettore con i dati relativi al 
carattere che vuoi correggere e, saltando alla linea 1060, ti 
permette la correzione. 

-11: 4000-4080:. ti permette di vedere i caratteri che hai crea¬ 
to. 

-12: 5000-5550: salva su disco o su nastro i caratteri che hai 
programmato. 

-13: 6000-6550: carica da disco 0 da nastro un set salvato 
precedentemente. 

-14: 7000-7030: chiude il programma. 

COMMENTO A GRAF5 SEZIONE PER SEZIONE 
SEZIONE 1 

.10: schermo e sfondo neri, caratteri azzurri. 

.15: set maiuscolo, disabilita la funzione di SHIFT-CBM. 

.20: fine della memoria a 14336 ($3800). 

.30: inizializza la costante US$. 

.40: assegna a FI il CHR$(133) per poterlo usare con l'istru¬ 
zione GETKEY. Il tasto FI serve per uscire dalle fasi del pro¬ 
gramma e tornare al menu' principale. 

SEZIONE 2 

.100/180: mostra le opzioni. 

.190: accetta un tasto tra 1 e 9. 

.195: pone nella variabile I il valore del tasto premuto. 

.200: se I<7 salta alla routine richiesta. 

.210: torna a mostrare le opzioni. 

SEZIONE 3: 

E' la sezione piu' complicata del programma: per comprenderne be¬ 
ne il funzionamento possiamo dividerla in 3 sottosezioni. 
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•A) . 1000/1010: disegna una griglia 8X8 su cui creare il carat¬ 
tere . 

•B) . 1060/1170: permette di disegnare il carattere. 

.C . 1180-1230: riempie il vettore BY(7) con ì dati relativi al 
carattere disegnato sulla griglia. 

Torniamo al commento linea per linea: 

.1000: pulisce lo schermo e scrive in alto PREMI FI PER USCIRE. 

.1010: disegna la griglia. 

.1060: pone nella variabile PC (posizione cursore) l'indirizzo 
del byte della mappa degli attributi corrispondente al "+" della 
griglia in alto a sinistra. Azzera le variabili XC e YC (coor¬ 
dinate X e Y del cursore). 

.1070: pone a 1 il bit 7 del byte della mappa degli attributi 
corrispondente al cursore. In questo modo il carattere che corri¬ 
sponde al cursore, lampeggia (vedi Paragrafo 4.8). 

.1080: attende la pressione di un tasto. 

.1090: A = codice ASCII ricevuto da tastiera e SP=0 (SP=spo- 
stamento che verrà' effettuato). 

.1100: se il carattere ricevuto e' "CURSORE A DESTRA" e il cur¬ 
sore non e' all'estrema destra della griglia (XC=7) allora incre¬ 
menta XC e PC e pone SP=1 . 

.1110: se il carattere ricevuto e' "CURSORE A SINISTRA" e il 
cursore non e' all'estrema sinistra della griglia (XC=0) allora 
decrementa XC e PC e pone SP=-1. 

.1120: se il carattere ricevuto e' "CURSORE IN BASSO" e il cur¬ 
sore non e' sull'ul'tima linea della griglia (YC=7) allora increi 
menta YC, somma 40 a PC e pone SP=40 (40 e’ il numero di carat¬ 
teri contenuti in una linea dello schermo). 

.1130: se il carattere ricevuto e’ "CURSORE IN ALTO" e il cur¬ 
sore non e' sulla prima linea della griglia (YC=0) allora decre¬ 
menta YC, sottrae 40 a PC e pone SP=-40., 

.1140: se il carattere ricevuto da tastiera e' SPAZIO pone nel¬ 
la posizione della mappa video corrispondente alla posizione del 
cursore una pallina per indicare che quel punto e' "acceso" (1024 
e' la differenza tra l'indirizzi della mappa degli attributi e i 
corrispondenti indirizzi della mappa video). 

.1150: se il carattere ricevuto da tastiera e' DELETE pone nel¬ 
la posizione della mappa video corrispondente alla posizione del 
cursore un "+" per indicare che quel punto e' "spento". 

.1160: pone a 0 il bit 7 del byte della mappa degli attributi 
corrispondente alla vecchia posizione del cursore (PC-SP). 

.1170: se non e' stato premuto FI torna alla linea 1070 dove fa 
lampeggiare la posizione corrente del cursore. 

.1180: per ogni riga della griglia esegue fino a 1220. 

.1190: pone a 0 il corrispondente elemento del vettore. 

.1200: per ogni elemento di una riga esegue fino a 1220 

.1210: somma alla variabile corrispondente alla riga interes¬ 
sata 2 elevato alla posizione dell'elemento di riga considerato 
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(partendo da destra), se in tale posizione vi e' una pallina; 
altrimenti somma 0. 

.1220: chiude il ciclo degli elementi e quello delle righe. A 
questo punto nel vettore BY sono contenuti gli 8 numeri neces¬ 
sari per programmare il carattere disegnato sulla griglia. 

. 1230 : fine della routine. 

SEZIONE il 

.2000/2055: mostra le opzioni relative alla memorizzazione dei 
caratteri. 

.2060/2070: accetta dalla tastiera un numero tra 1 e 5 e lo po¬ 
ne nella variabile A. 

.2080/2090: accetta un numero tra 0 e 255 e lo pone nella varia¬ 
bile NCJ (il carattere che si vuole programmare). 

.2100: salta alla routine di modifica del vettore richiesta. 
.2110: memorizza il carattere ponendo in 8 byte di memoria a 
partire da 14336+8*NC% il contenuto del vettore. 

.2120: torna dalla routine. 

SEZIONE 5 

.2200: e' stata messa per rispondere alla chiamata della linea 
2100. 

SEZIONE 6 

.2300: pone in ogni elemento del vettore la differenza tra 255 e 
il valore contenuto prima. Questa operazione compiuta su numeri 
minori di 256 (come nel nostro caso), nega gli 8 bit del nume¬ 
ro. 

. 2310 : torna dalla routine. 

SEZIONE 7 

.2*100: per ogni elemento del vettore esegue fino a 2*150. 

2410: per J da 0 a 3 esegue fino a 2450. 

.2420: pone il valore del bit j-esimo dell'elemento considerato 
del vettore nella variabile BD (bit di destra) e lo azzera. 

.2430/2435: pone il valore del bit (7^j)-esimo dell'elemento 
considerato del vettore nella variabile BS (bit di sinistra) e lo 
azzera. 

.2440: pone il bit di sinistra al posto del bit di destra e 
viceversa. 

.2450: chiude i due cicli. 

.2460: torna dalla routine. 

SEZIONE 8 

.2500: per i primi 4 elementi del vettore esegue fino a 2540. 
.2510: pone nella variabile T (temporanea) il valore dell'e¬ 
lemento considerato. 

.2520: pone nell'elemento considerato il valore dell'elemento 
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simmetrico del vettore. 

.2530: pone nell'elemento simmetrico il valore di T. 

.2540: chiude il ciclo. 

.2550: torna dalla routine. 

SEZIONE 9 

.2600/2620: trasferisce il vettore BY nel vettore B2 e lo azze-, 
ra. 

.2630: per ogni bit degli elementi del vettore esegue fino a 26- 
60 (indice I). 

.2640: per ogni elemento del vettore esegue fino a 2660 (indice 
J). 

.2645/2650: pone il bit considerato dell'elemento in esame ugua¬ 
le al bit j-esimo dell'elemento simmetrico all'i-esimo. 

.2660: chiude i due cicli. 

.2670: torna dalla routine. 

SEZIONE 10 

.3000/3020: chiede il numero (D/CODE) del carattere da correg¬ 
gere. Accetta un numero tra 0 e 255 e lo pone nella variabile 
NC%. 

•3030: pulisce lo schermo e scrive centrato in alto PREMI FI PER 
USCIRE. 

.3040: sposta il cursore piu' in basso di 4 linee. 

.3050: per 8 volte esegue fino a 3100. 

•3060: sposta il cdrsore a destra di 16 posizioni. 

.3070/3100: scrive un "+" se il bit considerato contiene 0, una 
pallina altrimenti. 

. 3110 : salta alla routine di programmazione del carattere. 
SEZIONE 11 

.4000/4006: fornisce le istruzioni all'utente. 

.4010: attende circa 10 secondi. 

.4020: cancella lo schermo. 

.4030/4035: descrizione dei caratteri in RAM a partire da 14336 

($ 3800 ). 

.4040: attende la pressione di un tasto. 

.4050: se il tasto premuto non e' FI, scrive il carattere (che 
può' essere anche un carattere di controllo del cursore o del 
colore) e torna ad attendere il prossimo. 

.4060/4080: se e' stato premuto FI riassume la ROM come descri¬ 
zione dei caratteri, passa a scritte blu' e esce dalla routine. 

SEZIONE 12 

.5000: pulisce lo schermo. 

.5010/5015: pone in DV$ la periferica scelta. 

.5020/5030: pone in NS? il numero distintivo del set di carat¬ 
teri . 


293 



•5040/5060: pone in NC? (D/CODE dell'ultimo carattere che ai 
vuole salvare) un numero tra 0 e 255. 

.5070: ae la periferica scelta e' il nastro aalta a 5500. 
.5080/5085: apre il file su disco e torna se si verifica un 
errore. 

.5090/5110: scrive au disco il numero di caratteri da salvare 
seguito dai dati relativi ai caratteri. 

.5120/5130: chiude il file e torna dalla routine. 

.5500: apre il file su nastro. 

.5510/5530: scrive su nastro il numero dì caratteri da salvare 
seguito dai dati relativi ai caratteri. 

.5540/5550: chiude il file e torna dalla routine. 

■SEZIONE 13 

.6000: pulisce lo schermo. 

.6010/6015: pone in DV$ la periferica scelta. 

.6020/6030: pone in NS$ il numero distintivo del set di carat¬ 
teri . 

.6070: se la periferica scelta e' il nastro salta a 6500. 
.6080/6085: apre il file su disco e torna se si verifica un 
errore. 

.6090/6110: legge da disco il numero di caratteri da caricare e 
quindi carica i dati relativi ai caratteri. 

.6120/6130: chiude il file e torna dalla routine. 

.6500: apre il file su nastro. 

.6510/6530: legge da nastro il numero di caratteri da caricare e 
quindi carica i dati relativi ai caratteri. 

.6540/6550: chiude il file e torna dalla routine. 

SEZIONE 14 

.7000: porta il cursore piu' giu' di una linea e ti chiede se 
sei sicuro di voler abbandonare il programma. 

.7010: attende la pressione di un tasto. 

.7020: se la risposta e' "S" allora salta alla routine di 
inizializzazione del BASIC. 

.7030: altrimenti torna dalla routine. 

Con questo programma e' quindi possibile creare in memoria nuovi 
caratteri e salvarli su disco o cassetta. Se, in un programma che 
usa caratteri definiti, vuoi evitare di caricare i dati relativi 
ai caratteri da nastro, ma preferisci che siano già' nel program^ 
ma sotto forma di linee DATA, puoi usare il programma GRAF6, che 
converte i dati contenuti dal byte 14336 ($3800) in poi in linee 
DATA. 

10 REM GRAF6 

20 INPUT-FINO A CHE CARATTERE "iCX 
58 PRINTCHR$<147>; 
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68 N=i000+I*i0:GOSUB160:PRINTN$"DATft"; 

70 FORJ=0TO7 

80 N=PEEK<61440+1*8+J):GOSUB160:PRINTNS","; 

90 NEXT 

100 PRINTCHR$<28> 

118 PRINT"I="I+1":CX="C>!; 

120 IFI<CXTHEHPRINT'*:GOTO50":GOTO140 
130 PRINT":G0TOi70" 

140 P0KE239.3:P0KE1319,19:POKE1320,13 
150 P0KE1321,13:END 

160 N$=STRS <N>:N$=RIGHT$<N$,LEN(N$>-i> RETURN 
178 P0KE239,3 -P0KE1319,19 -POKE1320,13 :P0KE1321,1 
3 K=K + 10:PRINTCHR$<147)K: PRINT"K=“K" : IFK<170THEN 
170" 


GRAF6 può' essere usato anche per convertire in linee DATA 
programmi in linguaggio macchina o altri tipi di dati presenti in 
memoria. Il programma si basa sul fatto che il COMMODORE PLUS->4, 
appena esce da un programma, scrive i caratteri che si trovano 
nel buffer della tastiera (da 1319 a 1328 ($0527/$0530) ) e si 
comporta esattamente come se fossero stati premuti dall'utente. 

COMMENTO A GRAF6 

.20: chiede fino a che carattere vuoi convertire in linee DATA. 
Il programma convertirà' 8X(Ct+1) byte a partire dall'indirizzo 
1*1336 ($3800). 

.50: pulisce lo schermo. 

.60: il numero N che deve essere assegnato alla prossima linea 
DATA e' 1000+1*10, trasforma il numero N in una stringa (appog-* 
giandosi ad una routine in 160), scrive una stringa che contiene 
N e la parola BASIC DATA. Puoi scegliere da quale linea partire, 
sostituendo a 1000 il numero di linea che preferisci, e il passo 
con cui incrementare il numero di linea, sostituendo a 10 il pas-i 
so desiderato. 

.70/90: per gli 8 byte di ogni carattere pone in N il contenuto 
del byte interessato, lo trasforma in una stringa utilizzando la 
stessa routine di prima, scrive la stringa e una virgola. 

.100: cancella l'ultima virgola. 

.110: scrive sul video le istruzioni BASIC che incrementeranno 
l'indice I e riporranno in memoria il valore di C? (le variabili 
vengono infatti perse ogni volta che si introduce una nuova linea 
di programma). 

.120: se il carattere trattato non e' l'ultimo, la linea 120 
scrive GOTO 50 e salta a 140. 

.130: se il carattere trattato e' l'ultimo, scrive GOTO 170. 

.140/150: pone 3 nel byte 239 (il byte 239 indica il numero di 
caratteri validi nel buffer di tastiera), pone nel buffer di 
tastiera il codice ASCII di HOME e'due volte il codice ASCII di 
RETURN e esce dal programma. A questo punto il COMMODORE PL.US-4 
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trova nel buffer di tastiera HOME e quindi porta il cursore sul¬ 
la linea DATA, un RETURN e quindi introduce nel programma la 
linea DATA portando il cursore sulla seconda linea scritta dal 
programma; trova il secondo RETURN ed esegue quindi i comandi 
scritti sulla linea, aggiorna cioè' le variabili e salta a 50 o a 
170. 

.160: e' la routine che trasforma il numero N nella corrispon¬ 
dente stringa N$ usando la funzione STR$ e scartando il carat¬ 
tere che contiene il segno. 

.170: usando il metodo appena descritto, cancella le linee da 10 
a 170. 

9-5 CARATTERI A SFONDO PROGRAMMABILE 

Tu sai che quando scrivi un carattere con il COMMODORE PLUS-4 
puoi sceglierne il colore, selezionando il colore 1, usando i 
codici di controllo del colore del cursore, o scrivendo nella 
mappa degli attributi il codice desiderato. In questo modo sele¬ 
zioni il colore dello "inchiostro" con cui il COMMODORE PLUS-4 
scrive il carattere, ma quello della "carta" (lo sfondo) rimane 
sempre lo stesso. TED ha la capacita' di leggere 4 diversi colo-- 
ri di sfondo quando e' posto in modo SFONDO PROGRAMMABILE. In 
questo modo, infatti, quando TED legge dalla mappa video il codi¬ 
ce del carattere da visualizzare, considera i 6 bit meno signifH 
cativi come codice del carattere, e i due bit rimanenti come 
codice del colore dello sfondo. Hai cosi' a disposizione un set 
di soli 64 (2 elevato a 6) caratteri, ma puoi scegliere per 
ciascuno di essi un colore di sfondo su 4 possibili. Puoi 
naturalmente scegliere questi 4 colorì tra i 121 a disposizione. 
Con il modo a sfondo programmabile puoi ottenere delle bellis¬ 
sime maschere o dei coloratissimi quadri grafici. I caratteri che 
si perdono con il modo a sfondo programmabile sono: 

. tutto il set MINUSCOLO/MAIUSCOLO (TED non considera, infatti, 
il bit 2 del registro 13» quando e' in modo SFONDO PROGRAM¬ 
MABILE, non e' quindi possibile selezionare il set 
MINUSCOLO/MAIUSCOLO). 

. tutti i caratteri in campo inverso. 

. tutti i caratteri grafici. 

Ti rimangono quindi a disposizione solo le lettere maiuscole, le 
dieci cifre, i segni di punteggiatura e delle operazioni materna-, 
tiche. 

Dei 4 colori-sfondo per i caratteri, uno e' quello dello scher^ 
mo, i codici degli altri tre vanno posti nei registri del TED che 

rispondono agli indirizzi 65302, 65303, 65304 ($FF16, $FF17, 
$FF18). Se L e' il numero della luminosità’ (tra 0 e 7) e C e' il 
numero del colore (tra 1 e 16), devi porre nei registri il nume¬ 
ro L*16+C-1 . 

. il colore dello schermo viene dato come sfondo ai caratteri 
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che hanno nei due bit piu' significativi del codice 00. 

. il colore del registro di indirizzo 65302 (colore di sfondo 1) 
viene dato come sfondo ai caratteri che hanno nei due bit piu' 
significativi del codice 01 . 

. il colore del registro di indirizzo 65303 (colore di sfondo 2) 
viene dato come sfondo ai caratteri che hanno nei due bit piu' 
significativi del codice 10. 

. il colore del registro di indirizzo 65304 (colore di sfondo 3) 
viene dato come sfondo ai caratteri che hanno nei due bit piu' 
significativi del codice 11. 

Ricorda che, normalmente, il bit 7 vale 1 per i caratteri in cam¬ 
po inverso: nel modo a sfondo programmabile, quindi, se premi una 
A ottieni una A su sfondo normale, mentre RVS ON + A produce una 
A con colore di sfondo 2. Per le lettere e lo spazio vale anche 
la regola che SHIFT-LETTERA visualizza la lettera con colore di 
sfondo 1 e RVS 0N + SHIFT-LETTERA visualizza la lettera con colo¬ 
re di sfondo 3. Questa regola non vale per i numeri e i rima¬ 
nenti simboli. Alla fine del paragrafo riportiamo la Tabella 9.1; 
essa ti aiuta a ottenere facilmente i 64 simboli con i vari colo¬ 
ri di sfondo. Per entrare in modo SFONDO PROGRAMMABILE basta por¬ 
re a 1 il bit 6 del registro 6 del TED che risponde all'in¬ 
dirizzo 65286 ($FF06). L'istruzione da eseguire e' quindi la 

seguente: 

POKE 65286, PEEK(65286) OR 64 

mentre l'istruzione da eseguire per tornare al modo modo normale 
e' : 

POKE 65286, PEEK(65286) AND 191 

Come prova di programmazione dello sfondo dei caratteri segue il 
programma GRAF7. 

0 ren graf7 

10 color8,1 -color4,1 

20 poke65286,peek< 65286> or64 

30 poke65302,92 

40 poke65383.94 

50 poke65304,82 

60 printchr$(147) 

70 colori,8,5 

88 chari,11,6,"coHwodore plus 4" 

90 col ori,6,3 

100 chari,9,9," " 

110 chari,9,10," PROGRAMMA DI PRODA " 

120 chari,9,11," 

130 colori,7,3 

140 chari,13,13,chr$<18>+" 

150 char1,13,14,chr$<18>+" caratteri ” 
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160 chari,±3, J.5,chrS<i81+" 

170 colori,3,3 

180 charl,7,17,chr$<18>+" 

■ ■ 

190 chari,7,±8 > chrS<i.8)+“ A SFONDO PROGRAMMABILE 
200 chari,7,19,chrS(18>+" 

216 getkeyaS 

228 poke65286,peek<65286)andl9i 


COMMENTO A GRAF7 
.10: schermo e bordo neri. 

.20: entra in modo sfondo programmabile. 


.30: colore 
(5*16+13^1=92) 

di 

sfondo 

1 : 

colore 

13 

con 

luminosità' 

5 

.40: colore 
(5*1 6+1 5~>1 =94) 

di 

sfondo 

1 : 

colore 

15 

con 

luminosità' 

5 

•30: colore 
(5*16+3-0=82). 

di 

sfondo 

1 : 

colore 

3 

con 

luminosità' 

5 


.60: pulisce lo schermo. 

.70: colore delle scritte giallo. 

.80: scrive in colonna 13. riga 6, "COMMODORE PLUS-4". 

.90: colore delle scritte verde. 

.100: scrive in colonna 9, riga 9, 20 spazi shiftati. 

.110: scrive in colonna 9, . riga 10, la scritta shiftata " 
PROGRAMMA DI PROVA ". 

.120: scrive in colonna 9, riga 11, 20 spazi shiftati. 

.130: colore delle scritte blu. 

.140: scrive in colonna 13, riga 13, 11 spazi reversati. 

.150: scrive in colonna 13, riga 14, la scritta reversata " 
CARATTERI ". 

.160: scrive in colonna 13, riga 15, 11 spazi reversati. 

.170: colore delle scritte rosso. 

.180: scrive in colonna 7, riga 17, 24 spazi shiftati e rever¬ 
sati . 

.190: scrive in colonna 7, riga 18, la scritta shiftata e rever- 
sata " A SFONDO PROGRAMMABILE 

.200: scrive in colonna 13; riga 15, 24 spazi shiftati e rever¬ 
sati . 

.210: attende la pressione di un tasto. 

.220: torna al modo normale. 


Nota che in modo sfondo programmabile, il bit 7 dell'attributo 
viene ignorato, non e' possibile quindi ottenere caratteri 
lampeggianti (effetto FLASH). Ti proponiamo ora il programma 
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GRAF8, leggermente piu' complicato, che usa il modo sfondo 
programmabile con i caratteri definiti in RAM: in questo esempio 
gli stessi caratteri vengono "disegnati" su sfondi diversi. 

6 REM GR0F8 

10 P0KE56,240 POKE55,0:CLR:DM=1024 
20 FORI=61440T061631 
30 REODO 
40 POKEI,0 
SO NEXT 

60 FORI=OTO7:POKEG1696+I,0:NEXT 
70 PRINTCHR$<147> 

80 COLOR0,14,6COLOR4,2,5 
90 POKE65302,85 
100 POKE65303,73 
110 POKE65304,103 

120 P0KE65299,<PEEK<65299>OND3>+240 

121 P0KE65298,PEEK<65298>0ND251 
130 P0KE65286,PEEK(65286>0R64 
140 COLORI,3,3:CHOR1,39,7,“U” 

150 FORI=0TO2 

160 CHOR1,38-1,8+1,LEFTS<■■UMWW,I+2> 

170 NEXT 

180 FORI=3592T03751:POKEI,96 :NEXT 

190 F0RI=3752T03911:POKEI,160 :NEXT 

200 FORI=3912T04071 :POKEI,96 :NEXT 

210 FORI=0TO2:FORJ=0TO2:POKE3549+J+I*40,224 

220 NEXT:NEXT 

230 0G=3588:T=1:GOSUB500 

240 OG=3678:T=0:GOSUB500 

250 06=3538 :T=0:GOSUB500 

260 0G=3848:T=1:GOSUB500 

270 GETKEVOS 

280 P0KE65286,PEEK <65286)ONDI91 
290 P0KE65299.<PEEK<65299I0ND3>+208 
380 P0KE65298,PEEK<65298)0R4 
310 PRINTCHRS<147>:END 
5O0 IFTTHEN620 

510 POKEOG,(PEEKCOG)0ND196>+0 

511 POKEOG-DM,113 :0G=0G + 1 

520 POKEOG,<PEEK<0G)AND196)+1 

521 POKEOG-DM,113 :0G=0G+39 

530 POKEOG,<PEEK<0G>0ND19G>+2 

531 POKEOG-DM,54:0G=0G+1 

548 POKEOG,<PEEK(0G>0ND196>+3 
541 POKEOG-DM,54:0G=0G+38 
558 POKEOG,<PEEK<OG>0ND196>+6 
551 POKEOG-DM,54-0G=0G+1 
566 POKEOG,<PEEK<0G)0ND196>+4 
561 POKEOG-DM,540G=0G+1 

570 POKEOG,<PEEK(0G>0ND196>+5 

571 POKEOG-’ H,54:0G=0G+39 
580 POKEOG,ti EEK<0G>0ND196>+7 
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581 POKEOG-DM,113:0G=0G+1 

590 POKEOG,(PEEK(0G>AND196)+8 

591 POKEOG-DM,113 :0G=0G+39 
608 POKEOG,<PEEK<0G>AND196>+9 
601 POKEOG-DM,113:OG=OG+1 

610 POKEOG,(PEEK<OG>AND196>+10 

611 POKEOG-DM,113:RETURN 

620 POKEOG,<PEEK<0G>AND196)+12 

621 POKEOG-DM,113:OG=OG+1 

630 POKEOG,<PEEK<0G>AND196>+11 

631 POKEOG-DM,113:0G=0G+39 

640 POKEOG,(PEEK<0G)AND196>+14 

641 POKEOG-DM,54:0G=0G+1 

650 POKEOG,(PEEK<0G)AND196>+13 

651 POKEOG-DM,54:0G=0G+39 

660 POKEOG,<PEEK<0G>AND196>+16 

661 POKEOG-DM,54:0G=0G*1 

670 POKEOG,<PEEK<0G>AND196>+15 

671 POKEOG-DM,54:0G=0G+1 

680 POKEOG,<PEEK<0G)AND196>+17 

681 POKEOG-DM,54.OG=OG+38 

690 POKEOG,<PEEK(0G>AND196>+19 

691 POKEOG-DM,113:OG=OG+l 

700 POKEOG,(PEEK<0G)AND196)+18 

701 POKEOG-DM,113:0G=0G+39 

710 POKEOG,(PEEK<0G)AND196)+21 

711 POKEOG-DM,113 :OG = OG + 1 

720 POKEOG,<PEEK<OG>AND196)+20 

721 POKEOG-DM,113:RETURN 
730 DATA0,0,1,3,7,15,31,31 

740 DATAO,96,240,246,224,192,192,224 

750 DATA31,63,63,i27,127,63,3i,7 

760 DATA224,54,191,255,246,240,224,0 

770 DATA7,31,62,125,251,247,287,159 

780 DATAO,176,216,220,238,239,231,195 

790 DATA0,0,0,0,1,7,7,15 

800 DATA31,3i,15,23,27,29,30,60 

810 DATA192,128,128,225,243,119,127,62 

820 DATA126,255,126,0,0,0,0,0 

836 DATA28,0,0,0,0,0,0,0 

840 DATAO,0,128,192,224,240,248,248 

850 DATAO,6,15,15,7,3,3,7 

860 DATA248,252,252,254,254,252,248,224 

870 DATA7,108,253,255,111,15,7,0 

880 DATA224,248,124,190,223,239,243,249 

890 DATAO,13,27,59,119,247,231,195 

90O DATAO,0,O,0,128,224,224,240 

910 DATA248,248,248,232,216,184,120, 60 

920 DATA3,1,1,135,207,238,254,124 

930 DATA126,255,126,0,0,0,0,0 

940 DATA56,0,0,0,0,0,0,0 

950 DATAI,3,7,15,31,63,127,255 

960 DATA255,255,255,255,255,255,255,255 
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GRAF8 memorizza i dati relativi a 22 caratteri necessari a dise¬ 
gnare dei puffi e, grazie a una subroutine, li pone in un qualn 
siasi punto di uno schermo variopinto. 

COMMENTO A GRAF8 

.10: pone la fine della memoria a 61 -440 ($F000) per proteggere i 
caratteri dalle variabili e pone nella variabile DM (Differenza 
Mappe) la differenza tra il primo indirizzo della mappa degli 
attributi e il primo indirizzo della mappa video. 

.20/50: pone in memoria i dati delle immagini dei caratteri. 

.60: azzera il carattere 32 (lo spazio). 

.70: pulisce lo schermo. 

.80: schermo blu chiaro e bordo grigio. 

.90/110: selezionano i tre colori di sfondo: 

1=verde, 2=marrone, 3=giallo. 

.120: descrizione dei caratteri a partire da 61940 ($F000). 

.130: entra in modo sfondo programmabile. 

.140/170: disegna un triangolo rosso (che sara' il tetto di una 
casetta) con i caratteri programmati. Nota che non puoi sovrap¬ 
porre dei puffi al tetto perche' questo e' stato ottenuto con dei 
caratteri e non con degli spazi colorati. 

.180: disegna una striscia di spazi shiftati (colore di sfondo 

1 ). 

.190: disegna una striscia di spazi reversati (colore di sfondo 

2 ). 

.200: disegna un'altra striscia di spazi shiftati (colore di 
sfondo 1). 

.210/220: disegna un quadrato di 3X3 spazi shiftati e reversati 
(colore di sfondo 3) che sara' la casetta. 

.230: disegna un puffo di tipo 1 (che guarda a sinistra), il cui 
angolo in alto a sinistra verrà' posto nel byte di memoria video 
3588, usando la routine in 500. 

.240: disegna un puffo di tipo 0 (che guarda a destra), il cui 
angolo in alto a sinistra verrà' posto nel byte di memoria video 
3678, usando la routine in 500. 

.250: disegna un puffo di tipo 0 (che guarda a destra), il cui 
angolo in alto a sinistra verrà' posto nel byte di memoria video 
3538, usando la routine in 500. 

.260: disegna un puffo di tipo 1 (che guarda a sinistra), il cui 
angolo in alto a sinistra verrà' posto nel byte di memoria video 
3848, usando la routine in 500. 

.270: attende che sia premuto un tasto. 

.280: esce dal modo a sfondo programmabile. 

.290/300: descrizione dei caratteri in ROM. 

.310: pulisce lo schermo ed esce. 

.500: inizia la routine che disegna i puffi. Salta se TOO cioè' 
se il puffo e' di tipo 1. 
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.510/610: ogni linea disegna uno degli 11 caratteri che formano 
un puffo di tipo 0 e pone nel corrispondente byte della mappa 
degli attributi il colore adatto. Per disegnare un carattere in 
un byte facciamo la AND tra il contenuto del byte e 196 per otte^ 
nere il valore dei bit 7 e 6, sommiamo quindi il codice del 
carattere e poniamo il risultato nel byte. In questo modo lascia¬ 
mo inalterato il colore dello sfondo. 

.620/720: ogni linea disegna uno degli 11 caratteri che formano 
un puffo di tipo 1 e pone nel corrispondente byte della mappa 
degli attributi il colore adatto. 

.730/960: dati relativi ai caratteri dei puffi e del tetto del¬ 
la casa. 


TABELLA 9.1 

SI MB . 

TASTI DA PREMERE j 

SFONDO 

COLORE 1 

COLORE 2 

COLORE 3 

e 

e 

SHIFT+* 

RUS+P 

RUS+SHIFT+» 

A 

A 

SHIFT+A 

RUS + A 

RUS+SHIFT+A 

B 

B 

SHIFT+B 

RUS + B 

RUS+SHIFT+B 

C 

C 

SHIFT+C 

RUS+C 

RUS+SHIFT+C 

D 

D 

SHIFT+D 

ROS + D 

RUS+SHIFT+D 

E 

E 

SHIFT+E 

RUS + E 

RUS+SHIFT+E 

F 

F 

SHIFT+F 

RUS+F 

RUS+SHIFT+F 

G 

G 

SHIFT+G 

RUS+G 

RUS+SHIFT+G 

H 

H 

SHIFT+H 

RUS + H 

RUS+SHIFT+H 

I 

I 

SHIFT+I 

RVS+I 

RUS+SHIFT+I 

J 

J 

SHIFT+J 

RUS+J 

RUS+SHIFT+J 

K 

K 

SHIFT+K 

RUS + K 

RUS+SHIFT+K 

L 

L 

SHIFT+L 

RUS + L 

RUS+SHIFT+L 

h 

M 

SHIFT+M 

RUS+M 

RUS+SHIFT+M 

N 

N 

SHIFT+N 

RVS + N 

RUS+SHIFT+N 

0 

0 

SHIFT+0 

RUS + 0 

RUS+SHIFT+0 

P 

P 

SHIFT+P 

RUS + P 

RUS+SHIFT+P 

Q 

Q 

SHIFT+Q 

RUS + Q 

RUS+SHIFT+Q 

R 

R 

SHIFT+R 

RUS + R 

RUS+SHIFT+R 

S 

S 

SHIFT+S 

RUS + S 

RUS+SHIFT+S 

T 

T 

SHIFT+T 

RUS + T 

RUS+SHIFT+T 

U 

U 

SHIFT+U 

RUS + U 

RUS + SHIFT + 0 

U 

0 

SHIFT+0 

RUS + U 

RUS+SHIFT+U 

H 

u 

SHIFT+W 

RUS+W 

RUS+SHIFT+W 

X 

X 

SHIFJ+X 

RUS + X 

RUS+SHIFT+X 


302 




| TABELLA 9.1 


TASTI DA PREMERE 


SFONDO 

COLORE 1 

COLORE 2 

COLORE 3 

V 

V 

SHIFT+V 

RUS + V 

RUS+SHIFT+V 

z 

Z 

SHIFT+Z 

RMS + Z 

RUS+SHIFT+Z 

[ 

I 

SHIFT++ 

RUS + I 

RUS+SHIFT + + 

£ 

£ 

CBM+- 

RUS+£ 

RUS+CBM+- 

i 

i 

SHIFT+- 

RUS+I 

RUS + SHIFT + - 

t 

t 

CBM+ = 

ROS + t 

RUS+C8M+= 

4 - 

4 - 

CBM+* 

RUS + «- 

RUS+CBM+w 

SP 

SP 

SHIFT+SP 

RUS+SP 

RUS+SHIFT+SP 

! 

! 

CBM+K 

RUS + ! 

RUS+CBM+K 

• ( 

" 

CBM+I 

RUS + " 

RUS+CBM+I 

« 


CBM+T 

RUS+N 

RUS+CBM+T 

$ 

$ 

CBM+C 

RUS + S 

RUS+CBM+C 

•/. 

y 

CBM*G 

RUS+K 

RUS+CBM+G 

s 

6 

CBM+ + 

RUS + & 

RUS+CBM++ 

' 

X 

CBM+M 

RUS+ ' 

RUS+CBM+M 

< 

< 

CBM+£ 

RUS+< 

RUS+CBM+£ 

) 

> 

S HIF T +£ 

RUS+) 

RUS+SHIFT+£ 

* 

-* 

CBM+N 

RUS+* 

RUS+CBM+N 

+ 

+ 

CBM+Q 

RUS + + 

RUS+CBM+Q 

» 

I 

CBM+D 

RVS+ , 

RUS+CBM+D 

- 

- 

CBM+Z 

RVS + - 

RUS+CBM+Z 

. 

•.. 

CBM+S 

RUS+ . 

RUS+CBh+S 

/ 

/ 

CBM+P 

RVS + X 

RVS+CBM+P 

e 

0 

CBM+A 

RUS+0 

RVS+CBM+A 

1 

1 

CBM+E 

RUS + 1 

RUS+CBM+E 

o 

*> 

CBM+R 

RUS + 2 

RUS+CBM+R 

3 

3 

CBM+W 

RUS+3 

RVS+CBM+W 

4 

4 

CBM+H 

RUS + 4 

RUS+CBM+H 

5 

5 

CBM+J 

RVS+5 

RUS+CBM+J 

6 

6 

CBM+L 

RUS + 6 

RUS+CBM+L 

? 

7 

CBM+V 

RUS + 7 

RVS+CBM+V 

8 

8 

CBM+U 

RUS + 8 

RVS+CBM+U 

9 

9 

CBM+O 

RUS+9 

RUS+CBM+O 



SHIFT+C 

RUS+: 

RVS+SHIFT + P 



CBM+F 

RUS+; 

RMS+CBM+F 
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TASTI DA PREMERE \ 


SFONDO 

COLORE i 

COLORE 2 

COLORE 3 

m 

■ 

CBM+C 

RUS + C 

RUS+CBM+C 


■ 

CBM+X 

RUS+= 

RUS+CBM+X 


I 

CBM+U 

RUS+> 

RUS+CBM+U 

BS 

H 

CBM+B 

RUS + ? 

RUS+CBM+B 


9.6 CARATTERI MULTICOLORE 

Questo paragrafo tratta dell'ultimo modo che hai a disposizione 
per rappresentare i caratteri con il COMMODORE PLUS-4: il modo 
MULTICOLORE. Come nei modi grafici 3 o 4, nel modo multicolore, 
ad ogni puntino che forma un carattere corrispondono 2 bit. In 
questo modo puoi associare ad ogni punto un colore scelto tra 4 
possibili (invece che tra 2) ma la matrice di ogni carattere e' 
4x8 (anziché' 8x8). Per entrare in modo MULTICOLORE devi porre a 
1 il bit 4 del registro 22 del TED (indirizzo 65287 ($FF16)); 
bisogna cioè' eseguire l'istruzione: 

POKE 65287, PEEK(65287) OR 16 

per tornare in modo ad alta risoluzione devi usare l'istru¬ 
zione: 

POKE 65287, PEEK(65287) AND 239. 

Per chiarire le idee vediamo come TED legge il carattere A in mo¬ 
do multicolore sapendo che gli 8 byte che descrivono la A conten¬ 
gono: 

0 0 0 110 0 0 
0 0 11110 0 
0 110 0 110 
0 1111110 
0 110 0 110 
0 110 0 110 
0 110 0 110 
00000000 

TED in modo multicolore interpreta ogni byte come una serie di 
quattro punti, cosi': 

00 01 10 00 cioè' come: A B C A 
00 11 11 00 ADDA 
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01 10 01 10 
01 11 11 10 
01 10 01 10 
01 10 01 10 
01 10 01 10 
00 00 00 00 


B C B C 
B D D C 
B C B C 
B C B C 
B C B C 
A A A A 


dove A, B, C e D sono rispettivamente: 

- il colore dello schermo. 

-i il colore 3. 

-> il colore indicato dal registro 23 (indirizzo 65303 ($FF17) ) 
con la convenzione 16#L+C-1, dove C e' il codice del colore e L 
la luminosità'. 

- il colore proprio del carattere. 

I primi 3 colori possono essere scelti tra i 16 del COMMO¬ 
DORE PLUS- 1 1, mentre il quarto può* essere solo uno dei primi 8. 
Questa piccola limitazione permette, in compenso, di visua¬ 
lizzare contemporaneamente caratteri multicolore e alta risolu¬ 
zione. TED, infatti, visualizza il carattere come multicolore so¬ 
lo se il byte corrispondente della mappa degli attributi ha il 
bit 3 a 1 e assume come codice del colore il numero formato dai 3 
bit meno significativi. Quando scegli il colore proprio del 
carattere dovrai sceglierlo tra i primi 8 e aggiungere 8 se lo 
vuoi multicolore o 0 se lo vuoi normale. 

Ecco GRAF9 come esèmpio di programmazione di un carattere multi¬ 
colore. 


« REM GRAF9 
10 PRINTCHRS(147) 

20 FOR I =0TO7: RE ADA :POKE61440+I,A :NEXT 
30 F0RI = 8T07 : P0KE61696+32*8+ 1,0: NEXT 
40 COLORO,15,0:COLOR4, 15,0 
30 COLORI, 14, 4 
60 POKE65303,16*7+1 
70 C0L0R3,3,3 

HO P0KE65287,PEEK< 65287)0R16 
90 P0KE65299,<PEEK<65299>AND3J+240 
100 P0KE65298,PEEK<65298)AND25i 
J 10 PRINVe" 

120 GETKEVAS 

130 P0KE65287,PEEK<65287)AND239 
140 P0KE65299,(PEEK<65299)AND3>+208 
150 P0KE65298,PEEK<65298>0R4 
1000 DATA165,165,165,165,240,240,240,240 


COMMENTO A GRAF9 
.10: pulisce lo schermo 
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.20: pone in memoria i dati relativi al carattere di D/CODE 0. 
.30: azzera il carattere di D/CODE 32 (lo spazio). 

.40: schermo e bordo blu. 

.50: colore del cursore 14 (in modo multicolore vuol dire 
colore D=6 (verde), carattere da visualizzare in modo multico¬ 
lore) . 

.60: colore C=2 (bianco). 

.70: colore B=3 (rosso). 

.80: entra in modo multicolore. 

.90/100: descrizione dei caratteri in 61440 ($F000). 

.110: scrive il carattere di D/CODE 0. 

.120: attende la pressione di un tasto. 

.130: torna al modo alta risoluzione. 

.140/150: caratteri in ROM. 

.1000: dati relativi al carattere. 

Il carattere che abbiamo programmato e' questo: 


1 65 


10100101 

« 

CCBB 

165 

= 

10100101 

= 

CCBB 

165 

= 

10100101 

= 

CCBB 

165 


10100101 

= 

CCBB 

240 

= 

1 1 1 10000 

= 

DDAA 

240 

= 

1 1 1 10000 

= 

DDAA 

240 

=5 

1 1 1 10000 

= 

DDAA 

240 

= 

11110000 

= 

DDAA 


In questo modo il carattere programmato e' composto da 4 quadra¬ 
tini di colore diverso. Questo esempio mostra come TED possa por¬ 
re 4 colori diversi nella posizione di un solo carattere, ma il 
risultato non e' certamente dei piu' pittoreschi. Prova quindi il 
programma GRAFI 0 il cui scopo e' quello di disegnare dei colora^ 
tissimi omini spaziali. 


0 REM GRAF10 
10 PRINTCHRS(147) 

20 FORI=0TO47: READA :POKE61440+I,A :NEXT 
30 FOR1=0TO7:POKE61440+32*8*I,0 :NEXT 
40 COLORO,1 :COLOR4,1 
SA COLORI,16,G 
60 POKE65303,16*4+6 
70 COLOR3,3,3 

80 POKE65287,PEEK < 65287 >OR16 
90 P0KE6S299,<PEEK<65299)AND3>*240 
100 P0KE65298,PEEK<65298)AND251 
110 CHAR, 0,10, " CA CA CA CA CA CA CA" 

ii5 print" eA ca eA eA eA ca 1 * 

120 PRINT" BC BC BC BC BC BC BC"; 

125 PRINT" BC BC BC BC BC BC" 
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130 PRINT" DE DE DE DE DE DE DE“, 
135 PRINT” DE DE DE DE DE DE" 

140 GETKEVAS 

150 P0KE65287,PEEK<65287)AHD239 
160 P0KE65299,<PEEK<65299)AND3>+208 
170 P0KE65298,PEEK(65298)0R4 
1000 DATAI92,192,49,53,21,81,65,85 
1010 DATA3,3,76,92,84,69,65,85 
1020 DATA84,85,22,5,3,5,21,85 
1030 DATA21,85,148,80,192,80,84,85 
1040 DATA85,85,2i,5,l,34,42,10 
1050 DATA85,85,84,80,64,136,168,160 


COMMENTO A GRAFI 0 
.10: pulisce lo schermo. 

.20: programma i caratteri che formano l'omino. 

.30: programma lo spazio. 

.40: schermo e bordo neri. 

.50: pone a 16 il colore dei caratteri (il colore D); saranno 
quindi caratteri multicolore con colore 8, cioè' giallo. 

.60: pone a 7 (blu) il colore C. 

.70: pone a 3 (rosso) il colore B. 

.80: entra in modo multicolore. 

.90/100: descrizione dei caratteri in 61440 ($F000). 

.110/135: scrive partendo dalla colonna 0, riga 10, i caratteri 
che compongono gli omini. 

.140: attende la pressione di un tasto. 

.150: torna al modo normale. 

.160/170: riporta la descrizione dei caratteri in ROM. 
.1000/1050: dati relativi agli omini. 


9.7 ANNULLAMENTO DELLO SCHERMO 

E' possibile annullare tutto ciò' che compare sullo schermo 
ponendo a 0 il bit 4 del registro 6 del TED. Tale registro 
risponde all'indirizzo 65286 ($FF06); l'istruzione da impartire 
e' quindi: 

P0KE 65286, PEEK(65286) AND 239 

eseguendola lo schermo diventa completamente vuoto e dello stes¬ 
so colore del bordo, come quando il calcolatore accede a nastro. 
Per riportare la situazione alla normalità' devi compiere l'ope¬ 
razione inversa, cioè’ eseguire: 

P0KE 65286, PEEK(65286) OR 19 
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Puoi sfruttare questa opzione di TED per compiere delle opera¬ 
zioni sullo schermo mentre questo non si può' vedere, ma il vero 
significato di questo bit e' un altro. Come sai TED chiede del 
tempo alla CPU per poter leggere dalla memoria i dati che gli 
servono per sapere cosa visualizzare. Quando lo schermo viene 
annullato, TED non ha piu' bisogno di quei dati e quindi "lascia 
in pace" la CPU che può' svolgere le sue funzioni con una velo- 1 
cita' notevolmente piu' alta. Prova ora a far girare il program¬ 
ma GRAF11 : 

0 REM GRAFii 

10 PBKE65286,PEEK(65286)AN0239 
20 TI$="000000" 

30 FOR I=1T010000 : NEXT 
40 rt=IHT<TI/6)/10 
50 P0KE65286,PEEK<65286)0R16 
60 TIS="000000" 

70 FORI=iTO10008 NEXT 
00 B=IHT<TI/6)/10 

90 PRINVCON SCHERMO ANNULLATO : "A”SEC0ND I " 

108 PRINT"C0N SCHERMO NON ANNULLATO : '^"SECONDI" 

Come vedi il tempo impiegato a schermo annullato e' sensibil¬ 
mente minore di quello impiegato nello stato normale. Ma il 
vantaggio piu' importante non e' nella velocita' che si guada¬ 
gna, ma nella precisione con cui la CPU può' calcolare i ritar¬ 
di. Con adatte routine in linguaggio macchina, infatti, si pos¬ 
sono calcolare ritardi con una precisione di meno di 1 milio¬ 
nesimo di secondo a patto di mascherare gli interrupt e di annul¬ 
lare lo schermo. Ritardi cosi' precisi servono in alcune opera¬ 
zioni di I/O come quelle del nastro. 

9.8 SCORRIMENTO FINE (SMOOTH SCROLLINO E REGISTRO DI LINEA 

TED permette di far scorrere tutto il contenuto dello schermo di 
un solo punto (un ottavo di carattere)., sia in direzione orizzon¬ 
tale che in direzione verticale. 

I registri con cui si controllano queste operazioni sono 
rispettivamente i registri 7 e 6 che rispondono agli indirizzi 
65287 ($FF07) e 65286 ($FF06). I bit 2-0 di questi registri indi¬ 
cano quale delle 8 possibili posizioni (da 0 a 7) devono assu¬ 
mere i caratteri sul video, mentre il bit 3 seleziona, se posto a 
0, rispettivamente il modo a 38 colonne (1 per 40 colonne) e a 24 
righe (1 per 25 righe). 

Nota che lo schermo rimane sempre di 25 righe di 40 colonne, ma 
ponendo a 0 questi bit vengono visualizzate solamente 24 righe e 
38 colonne: questo permette di aggiungere, nella parte nascosta 
dello schermo, i nuovi dati e farli entrare lentamente nella par¬ 
te visibile realizzando lo scorrimento fine. Per ottenere uno 
scorrimento fine, quindi, devi: 
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. diminuire la parte visibile dello schermo nella direzione in 
cui lo vuoi far scorrere (ad esempio, se vuoi far scorrere lo 
schermo in direzione verticale, lo dovrai portare a 24 righe). 

. porre i 3 bit meno significativi del registro interessato a 7 
o a 0 (se lo scorrimento viene fatto dall'alto verso il basso a 
0, viceversa a 7 ; da sinistra a destra a 0, viceversa a 7). 

. scrivere i nuovi dati da visualizzare nella parte nascosta 
dello schermo. 

. incrementare (o decrementare) il contenuto dei bit 2-0 del 
registro interessato fino al valore massimo (o mìnimo). 

. riportare il contenuto dei bit 2-0 al valore del secondo pas- 
so e far scorrere tutta la scritta di un carattere intero nel¬ 
la direzione dello scorrimento. Questa operazione deve essere 
fatta con una routine in linguaggio macchina poiché' in BASIC 
si vede nettamente che questa operazione equivale a fare 7 pas¬ 
si indietro piu' 8 in avanti, mentre deve sembrare che sia un 
solo passo in avanti. 

. tornare al punto 3* 

Vediamo un paio di esempi che chiariscono meglio questi concet¬ 
ti: 


I) REM GRAF12 

10 COLORO, 15,1 : COLORI, 14, 6 C0L0R4, 15,1 
;>0 PRINTCHR5(147) 

:i0 PRIMT-CHE SCRITTO UU0I FAR SCORRERE 'SPRINT 
40 GETKEVAS-IFA$=CHR$<i3>ORLEN<B$)=253THEN60 
■>0 B$ = 8$+AS:PRINTA$; :G0T040 
OH B$=B$+" " 

70 L=LEN(B$):PRIMTCHR$<147) 

00 P0KE65287,PEEK(65287)AND247 
00 F0RI=1T0LEN<BS> 

100 PRINTCHRS<19>" 

I10 PRINTCHRS<20>;:P0KE65287,<PEEK<65287)AND24B> 

> 7 

120 PRIMTCHRS<I7)CHR$<i57>MID$<BS,1,1) 

100 F0RJ=6T00STEP-i 

I40 P0KE65287,<PEEK<65287)AND248)+J 
100 MEXT J 
ICO MEXT I 
170 GOT080 

commento a grafi 2 

.10/30: inizializza il video. 

.40/50: riceve una stringa che può' essere lunga fino a 253 
iMi'atteri. 

.(>0: aggiunge 2 spazi alla stringa. 

.70/80: calcola la lunghezza della stringa, pulisce lo schermo e 
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seleziona il modo a 38 colonne. 

.90: inizializza un ciclo di tanti passi quanti sono i carat¬ 
teri che formano la stringa. 

.100: posiziona il cursore sulla seconda colonna della prima 
riga. 

.110: cancella un carattere in modo da far scorrere tutta la 
prima riga a sinistra e riportare il cursore nell'angolo in alto 
a sinistra e pone 7 nei bit 2-0 del registro dello scorrimento 
orizzontale (7 = massimo a destra). 

.120: sposta il cursore in basso e quindi a sinistra per 
posizionarlo sull'ultima colonna della prima riga dove stampa 
l'I-esimo carattere della stringa. 

.130/150: ciclo che decrementa il contenuto dei bit 2-0 del 
registro dello scorrimento orizzontale fino a 0, spostando le 
scritte gradualmente a sinistra. 

.160: prossimo carattere della stringa. 

.170: torna alla linea 90 per cominciare nuovamente dall'inizio 
della stringa. 

Facendo girare GRAFI 2 ti accorgerai che un programma comple¬ 
tamente BASIC non da' dei buoni risultati. La linea 110 andra' 
quindi sostituita con un'adeguata routine in linguaggio macchina 
come nel programma GRAFI 3 in cui la linea 110 e' stata sosti¬ 
tuita dalla routine GRAFI 4. GRAFI 4 usa un registro di TED che non 
abbiamo ancora illustrato: il REGISTRO DI LINEA. Questo registro 
indica in ogni istante quale delle 313 linee che formano lo 
schermo viene disegnata da TED; risponde all'indirizzo 65309 
($FF1 D) per gli 8 bit bassi e da’ il bit 8 (servono infatti 9 
bit, da 0 a 8, per esprimere un numero tra 0 e 312 ) nel bit meno 
significativo se l'indirizzo e' 65308 ($FF1C). Le linee che for-< 
mano la parte in cui TED può' visualizzare i caratteri vanno dal-' 
la 4 alla 203. GRAFI 4, prima di eseguire ciò' che veniva svolto 
dalla linea 110 in GRAFI 2, controlla che il registro di linea 
contenga $CC(204) cioè' si assicura di svolgere le sue funzioni 
mentre TED sta disegnando la parte inferiore del bordo. Questo 
accorgimento e' necessario perche', anche se la routine in 
linguaggio macchina e' velocissima, provocherebbe gli stessi 
effetti del BASIC se svolgesse le sue funzioni mentre TED sta 
disegnando le linee 4-11, su cui essa agisce. 

Vediamo ora i listati di GRAFI 3 e GRAFI 4. 

■7 


0 REM GRAF13 

5 P0KE56,127:P0KE55,233:CLR 

6 FORI = 0TO22:READA:P0KE32745+I,A :NEXT 
10 COLORA,15,1:COLORI,14,6 :C0L0R4,15,1 
20 PRINTCHR$<147> 

30 PRINT“CHE SCRITTA UU0I FAR SCORRERE ":PRINT 
40 GETKEVAS IFA$=CHR$<13>0RLEN(B$>=253THEN60 
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58 B$=B$+A$:PRINTA$; G0T040 
60 B$=B$+" " 

70 L=LEN<8$):PRINTCHRS<147) 

80 P0KE65287,PEEK<65287>AND247 
98 F0RI=1T0LEN<B$> 

100 PRINTCHRS(19>" 

118 SVS32745 

120 PRINTCHRSC17>CHR$<i57>MID$<BS,1,1» 
138 FORJ=6TO0STEP-1:FORK=±TO20:NEXT 
140 P0KE65287,<PEEK<65287)AND248>+J 
ISO NEXT J 
160 NEXT I 
170 6OTO90 

180 DATA120,173,29,255,201,204,208,249 
190 DATA169,20,32,210,255,173,7,255 
208 DATA9,7,141,7,255,88,96 


MONITOR 



. 7FF± 

A9 

14 


LDA 

«$14 

PC 

SR OC XR 

VR SP 

. 7FF3 

20 

D2 

FF 

JSR 

SFFD2 

; 0000 

00 00 00 

00 F8 

. 7FF6 

AD 

07 

FF 

LDA 

SFF07 

. 7FE9 

78 

SEI 

. 7FF9 

09 

07 


ORA 

«S07 

. 7FEA 

AD 1D FF 

LDA SFF1D 

. 7FFB 

8D 

07 

FF 

STA 

SFFB? 

. 7FED 

C9 CC 

CMP MSCC 

. 7FFE 

58 



CLI 


. 7FEF 

DB F9 

BNE S7FEA 

. 7FFF 

60 



RTS 



Il programma GRAFI 3'e' identico a GRAFI 2 tranne nelle linee: 

.5: che abbassa i puntatori di memoria e pone la routine GRAFI il 
da 32745 ($7FE9) a 32767 ($7FFF). 

,110: che salta alla routine in linguaggio macchina. 

Abbiamo posto la routine GRAFI 4 in questi indirizzi perche' sono 
1 piu' alti in cui la RAM e' presente anche quando e’ selezionata 
la ROM. In questo modo si ha un grande spreco di memoria: nel 
programma ESEMPIO DI USR del capitolo 10 vedrai come porre in 
memoria una routine in linguaggio macchina, senza sprecare 
memoria. 

Vediamo ora come funziona la routine GRAFI 4, con riferimento agli 
indirizzi esadecimali. 


.3FE9: maschera gli interrupt per poter leggere continuamente il 
registro di linea. 

.3FEA: carica nell'accumulatore i bit 7-0 del registro di linea. 

• 3FED: controlla se e' arrivato a $CC, non controlla il bit 8 
perche' questo non può' che essere 0 quando 7->0 contengono $CC: 
infatti il registro di linea può' contenere da $00 a $138. 

.3FEF: se il registro di linea non contiene ancora $CC torna a 
ieggere. 

•3FF1: carica nell'accumulatore $14 (20, che e' il codice ASCII 
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di DELETE). 

.3FF3: lo stampa. 

• 3FF6/3FFB: pone a 1 i bit 0-2 del registro di scorrimento 
orizzontale. 

•3FFE: sente nuovamente gli interrupt. 

.3FFF: torna al BASIC. 

Per uno scorrimento fine verticale le cose si complicano 
ulteriormente: infatti se chiediamo uno scorrimento fine mentre 
il registro di linea e' in una posizione compresa tra la linea 4 
e la 203. otteniamo uno spiacevole sfarfallio dello schermo e lo 
stesso vale, a maggior ragione, quando chiediamo un'operazione 
del tipo 7 passi indietro piu* 8 avanti. Per risolvere questi 
problemi bisogna quindi sincronizzare gli scorrimenti fini col 
registro di linea e compiere lo scorrimento degli 8 passi in 

maniera molto rapida. Purtroppo neanche una routine in linguag¬ 
gio macchina riesce ad essere cosi' veloce da far scorrere lo 
schermo mentre il registro di linea e' tra 204 e 3. Abbiamo quin-^ 
di fatto una routine in linguaggio macchina, la GRAFI 6, che usa 3 
mappe video e degli attributi. Nella solita coppia, da $0800 a 
$0BE8 e da $0C00 a $0FE8, poniamo, con l'istruzione BASIC CHAR, 
le nuove stringhe; le altre due coppie, che sono visualizzate 

alternativamente da TED, occupano le locazioni da $3000 a $33E8 e 
da $3400 a $37E8 la prima coppia, da $3800 a $3BE8 e da $3C00 a 

$3FE8 la seconda. In questo modo, quando TED mostra una coppia, 

vengono trasferiti i dati della mappa video e attributi normali 
nell'altra. Al fatidico momento degli 8 passi avanti e 7 indie¬ 
tro, non facciamo altro che cambiare mappa video e attributi e 
compiere 7 passi indietro (operazione sufficentemente veloce): 
potremo quindi, con calma, aggiungere i nuovi dati nelle mappe 
normali e trasferire il tutto nelle mappe non visualizzate. 
Vediamo, nel dettaglio, come funziona GRAFI 6: 


MONITOR 






. 2FD2 

18 



CLC 



PC 

SR AC 

XR 

VR SP 

. 2FD3 

6D 

FF 

2F 

ADC 

$2FFF 

J 

0006 

00 

90 

00 

00 F8 

. 2FD6 

8D 

06 

FF 

STA 

$FF06 


2FB0 

78 



SEI 


. 2FD9 

60 



RTS 



2FB1 

AD 

JD 

FF 

LDA 

$FF1D 

. 2FDA 

AD 

14 

FF 

LDA 

$FF14 


2FB-4 

C9 

CC 


CMP 

#SCC 

. 2FDD 

29 

F 8 


AND 

#$F8 


2FB6 

DO 

F 9 


BNE 

S2FB1 

. 2FDF 

49 

08 


EOR 

#$08 


2FB8 

AD 

FF 

2F 

LDA 

S2FFF 

. 2FE1 

85 

04 


STA 

$04 


2FBB 

D0 

OD 


BNE 

$2FCA 

. 2FE3 

A9 

08 


LDA 

#$08 


2FBD 

AD 

14 

FF 

LDA 

SFF14 

. 2FE5 

85 

06 


STA 

$06 


2FC0 

49 

08 


EOR 

#$08 

. 2FE7 

A0 

00 


LDV 

#$00 


2FC2 

8D 

14 

FF 

STA 

SFF14 

. 2FES 

84 

03 


STV 

$03 


2FC5 

A9 

08 


LDA 

#$08 

. 2FEB 

84 

05 


STV 

$05 


2FC7 

8D 

FF 

2F 

STA 

S2FFF 

. 2FED 

Bi 

05 


LDA 

($05),V 


2F CO 

CE 

FF 

2F 

DEC 

$2FFF 

. 2FEF 

91 

03 


STA 

($03),V 


2FCD 

AD 

06 

FF 

LDA 

$FF06 

. 2FF1 

C8 



INV 



2FD0 

29 

F 0 


AND 

#$F0 

. 2FF2 

D6 

F9 


BNE 

$2FED 
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2FF4 

E6 

04 

INC 

$04 

. 2FFA 

C0 

10 

CMP 

#$10 

2FF6 

E6 

06 

INC 

$06 

. 2FFC 

D0 

EF 

BNE 

S2FED 

2FF8 

A5 

06 

LDA 

$06 

. 2FFE 

60 


RTS 



I byte usati da questo programma sono: 

.$2FFF: POSIZIONE in cui TED visualizza lo schermo (da 0 a 7). 

• $03,$04 : PUNTATORE 1 che indica l'indirizzo di partenza delle 
mappe in cui vanno trasferiti i dati. 

.$05,$06: PUNTATORE 2 che indica l'indirizzo di partenza delle 
mappe normali. 

GRAFI 6 e' composto da due routine: la prima fa scorrere lo scher-> 

mo di una linea ogni volta che viene chiamata e, se necessario, 

cambia la pagina visualizzata; la seconda (che verrà' chiamata 

dal BASIC dopo aver inserito i nuovi dati nelle mappe normali), 

trasferisce i dati dalle mappe normali a quelle non visualiz¬ 
zate. 

Ecco lo schema a blocchi di GRAFI 6: 



313 









Figura 9.1 Diagramma a blocchi sottoprogramma GRAFI 6 


Ecco infine la corrispondenza tra i blocchi dello schema 
linee del programma, riferendoci agli indirizzi esadecimali: 


BLOCCO 1 : linee 2FB0-2FB6. 
BLOCCO 2 : linee 2FB8-2FBB. 
BLOCCO 3 : linee 2FBD-2FC2. 
BLOCCO 4 : linee 2FC5-2FC7. 
BLOCCO 5 : linee 2FCA-2FCD. 
BLOCCO 6 : linee 2FD0^2FD6. 
BLOCCO 7 : linee 2FD9. 
BLOCCO 8 : linee 2FDA-2FDF. 
BLOCCO 9 : linee 2FE1-2FEB. 
BLOCCO 10 : linee 2FED-2FFC 
BLOCCO 11 : linee 2FFE. 


Vediamo ora come il BASIC gestisce queste due routine: 


e REM GRAF15 

10 P0KE56,47 :P0KE55,176 :CLR:TRAP500 
30 EORI --8T078 : RE ADA : POKE12208+I, A : NEXT 
50 READN 

60 DIMCL <N-i>,LU<N-i),LNS<N-i> 

70 FORI=0TON-1 
80 READCL<I),LU<I),LN$<I) 

110 NEXT 

120 COLORO,1C0L0R4,1:SCNCLR 


le 
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130 POKE65380,48 :SYS12250 
140 POKE65300,56 :SVS12250 
170 P0KE12287,7 
175 00 

180 FORI=0TOH-1 

190 COLORIjCL <I>,LU<I>:CHAR,0,24,CHRS <17)+LN$ <I> 

210 SYS12250 

220 SVS12208 

230 FORJ=1T07 

240 F0RK=1T060:NEXT 

250 SVS12208 

260 NEXTJ 

270 NEXTI 

280 LOOP 

500 COLORI,2,7:P0KE65286,27 :POKE65300,15 
510 PRINT:PRIHTERRS(ER):PRINT , ’1N"EL: END 
1000 DATA120,173,29,255,20i,204,208,249 
1010 DATA173,255,47,208,13,173,20,255 
1020 DATA73,8,141,20,255,169,8,141 
1030 DAT0255,47,206,255,47,173,6,255 
1040 DATA41,240,24,109,255,47,141,6 
1050 DATA255,96,173,20,255,41,248,73 
1060 DATA8,133,4,169,8,133,6,160 
1070 DATA0,132,3,132,5,177,5,145 
1080 DATA3,208,208,249,230,4,230,6 
1090 DATA165,6,201,16,208,239,96 
100O0 DATA10 


10010 DATA3,3," 
10020 DATA5,4, M 
10030 DATA4.4," 
10040 DATA6,4, ** 
10050 DATA9,5,“ 
10060 DATA13,4, *' 
10070 DATA8,5, M 
10080 DATAI,l,"" 
10090 DATAI, l,"" 
10100 DATAI,l,"" 


HdwmummHi -i imHti 


* *’■ 

* COMMODORE PLUS-4 *" 
» 

* SMOOTH SCROLLING w" 
» 


COMMENTO A GRAFI 5 


.10: pone la fine della memoria in 12208 ($2FB0) dove inizia il 
programma in linguaggio macchina, in $3000 inizia la prima mappa 
attributi, in $3400 la prima mappa video, in $3800 inizia la 
■seconda mappa attributi, in $3000 la seconda mappa video. Indica 
che la routine di errore parte dalla linea 500. 

.30: pone in memoria GRAFI 9. 

.50: legge il numero di stringhe che dovrà' visualizzare. 

.60: dimensiona 3 vettori di tanti elementi quante sono le 
stringhe: per ogni stringa memorizza il colore, la luminosità' e 
la stringa stessa. 
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.70/110: riempie i vettori. 

.120: schermo e sfondo neri, pulisce lo schermo. 

.130: mappa attributi in $3000 (e quindi mappa video in $3400); 
salta alla routine che trasferisce nell'altra coppia il contea 
nuto delle mappe normali (che al momento sono vuote). 

.140: mappa attributi in $3800 (e quindi mappa video in $3C00); 
salta alla stessa routine pulendo anche l'altra coppia di map^ 
pe. 

.170: pone 7 nel byte che indica la posizione del video alla 
routine in linguaggio macchina ($2FFF). 

.175: inizializza un ciclo senza fine che si chiude in 280: per 
uscire dal programma basta premere RliN/STOP. 

.180: per ogni stinga da visualizzare esegue da qui a 260. 

.190: seleziona colore e luminosità' richiesti; stampa la strina 
ga sulla mappa normale provocando uno scorrimento (con CHR$(17))- 

.210: salta alla routine che cambia mappe e trasferisce le map-> 
pe normali nelle mappe non visualizzate. 

.220: salta alla routine che provoca lo scorrimento fine. 

.230/260: provoca i 7 rimanenti scorrimenti fini. 

.270: prossima stringa. 

.280: chiude il ciclo aperto in 175. 

.500/510: abbiamo programmato una routine di errore perche' il 
SISTEMA OPERATIVO segnala l'errore sulla mappa normale; la rou^ 
tine di errore, invece, lo segnala dopo aver riportato le mappe 
in posizione normale e aver riportato lo schermo a 25 colonne, e 
arresta il programma. 

.1000/1090: dati relativi alla routine GRAFI9. 

.10000: le 10 stringhe da visualizzare. 

.10010/10100: colori, luminosità’ e caratteri di ogni stringa. 

Puoi ovviamente cambiare le ultime 11 linee del programma e far 
scorrere il messaggio che preferisci. 


9.9 RIEPILOGO 

In questo paragrafo abbiamo riassunto le istruzioni necessarie 
per sfruttare le capacita' di TED che hai visto in questo capi^ 
tolo: quando ti sarai impadronito delle tecniche che ti permet-> 
tono di sfruttare in pieno TED, ti basterà' consultare queste 
pagine per ricordarti quali sono i registri che ti interessano. 


- MAPPA VIDEO E ATTRIBUTI: per cambiare l'indirizzo di partenza 
della mappa video e attributi devi dare le istruzioni: 

POKE 65300,N oppure:LDA #$N 

STA $FF14 
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dove N*256 e' l'indirizzo del primo byte della nuova in.>i m 1 
attributi, la nuova mappa video sara' automaticamente pnai. 
1024 byte oltre. N deve essere un numero divisibile per II: >■ 
non lo e' TED considera (N/8)*8 (cioè' non considera I mi 
2-0). Normalmente la mappa attributi e' posta in $0800 e ■ pi 111 
di il numero N necessario a riportare il calcolatore nello aia 
to normale e' 8. 

DESCRIZIONE DEI CARATTERI: per cambiare l’indirizzo del pr I m. 
byte di descrizione dei caratteri devi dare le istruzioni: 

P0KE 65298,PEEK(65298) AND 251 
P0KE 65299,(PEEK(65299) AND 3) + N 

oppure 

LDA $FF12 
AND #$FB 
STA $FF12 
LDA $FF13 
AND #$03 
ORA #$N 
STA $FF1 3 

Dove N*256 e' l'indirizzo desiderato e N e' divisibile per 4 
(pena il malfunzionamento del sistema). Per riportare la mappa 
dei caratteri in ROM devi sostituire l'operazione ANI) ,">i (and 
#$FB) con OR 4 (ORA #$04) e N vale 208 (#$D0) 

CARATTERI A SFONDO PROGRAMMABILE: per entrare in modo al'... 

programmabile devi dare le istruzioni: 

P0KE 65286,PEEK(65286) OR 64 
P0KE 65302,A 
P0KE 65303,B 
P0KE 65304,C 

oppure 

LDA $FF06 

ORA #$40 
STA $FF06 
LDA #$A 
STA $FF16 
LDA #$B 
STA $FF17 
LDA #$C 
STA $FF18 


:i 1 1 



dove A, B e C indicano i colori e le luminosità' dello sfondo 
1, 2 e 3 rispettivamente e sono codificati come L*16+K-1, con L 
luminosità' e K colore. 

Per uscire dal modo sfondo programmabile devi dare le istru¬ 
zioni : 


POKE 65286,PEEK(65286) AND 191 

oppure 

LDA $FF06 
AND #$BF 
STA $FF06 


-> MODO MULTICOLORE: per entrare in modo multicolore devi dare le 

istruzioni : 

POKE 65287,PEEK(6528T) OR 16 
COLORI,Al,A2 
COLOR3.B1,B2 
POKE 65303,CI*16+C2-1 

oppure 

LDA $FF07 

ORA #$10 STA $FF16 

STA $FF07 LDA #$C1 *1 6+C2->1 

LDA #$B1*16+B2-1 STA $FF17 

dove Al, B1 e CI sono i codici delle luminosità' desiderate e 
A2, B2 e C2 i codici dei colori desiderati. Nelle routine in 
linguaggio macchina, devi porre il numero A1*l6+A2-1 nel byte 
della mappa degli attributi corrispondente al carattere che 
vuoi colorare cosi'. Ricorda che A2 deve essere maggiore di 7 
altrimenti il carattere verrà' visualizzato in modo alta 
risoluzione. 

ANNULAMENTO DELLO SCHERMO: per ottenere l'annullamento dello 
schermo ti basta dare le istruzioni: 

POKE 65286,PEEK(65286) AND 239 

oppure 

LDA $FF06 
AND #$EF 
STA $FF06 

per tornare allo schermo normale basta cambiare l'operazione 
AND 239 (AND #$EF) con OR 64 (ORA #$40). 
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CAPITOLO 10 


TECNICHE DI PROGRAMMAZIONE 
E ESEMPI 


10.1 INTRODUZIONE 

In questo capitolo riportiamo alcuni esempi di programmi, 
discutendone l'impostazione e commentandoli. 


10.2 DIVISIONE PAROLE IN SILLABE 

Alcuni programmi di ELABORAZIONE TESTI (Word Processing) produ¬ 
cono dei file di testo di tipo sequenziale ASCII, che contengono 
il testo, ma non provvedono automaticamente alla separazione del¬ 
le parole in sillabe con il trattino fantasma, da utilizzare 
eventualmente in fase di stampa per andare a capo. 

Abbiamo preparato il programma HYPHEN (trattino in inglese) per 
ottenere di leggere un file di testo, prodotto dal programma EASY 
SCRIPT del COMMODORE 6A, e produrre un file di testo modificato, 
con altro nome e con le parole divise in due parti da un trat¬ 
tino fantasma (SHIFT-@), riconosciuto come tale nella fase di 
stampa da EASY SCRIPT. 

Per separare in due parti le parole abbiamo usato un algoritmo 
empirico. Abbiamo osservato che e' possibile dividere le lettere 
che compongono le parole in tre categorie: 

-> Vocali o mute-li qui de-,nasali (a ,e, i ,o ,u ,h ,1 ,m,n ,r ) 

-> Consonanti mute->liquide-'nasali (h,l,m,n,r) 

-i Consonanti dure (b,c,d,f,g,p,q,s,t,v,z) 

Abbiamo creato tre vettori di variabili numeriche che consi¬ 
deriamo booleane: LL, VV, CC. Ognuno di questi 3 vettori ha 255 
elementi, uno per ogni codice ASCII. Il vettore VV indica quali 
lettere sono VOCALI o LIQUIDE: VV(65), ad esempio, viene posto a 
vero (-’l ), perche' la lettera A, che ha codice ASCII 65, e' voca-> 
le. Ugualmente il vettore LL indica quali lettere sono 
MUTE-LIQUIDE->NASALI, e il vettore CC indica le lettere che sono 
consonanti dure. In conseguenza gli elementi dei 3 vettori 
contengono o 0 o ^1. 
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Per effettuare la separazione in sillabe osserviamo un gruppo di 
tre lettere e poniamo la divisione tra il primo e il secondo dei 
tre caratteri che analizziamo, a patto che si verifichi una del- 
le seguenti condizioni: 

1- i Le prime due lettere sono uguali e sono consonanti 
(liquide-nasali o dure): e' il caso della doppia. 

2- Non separiamo se la prima lettera e' S: dopo la S non si 
separa, se non per la doppia, già' considerata. 

3 - Vocale o liquida -> S - qualunque lettera esclusa S 

il- Vocale o liquida -1 consonante dura - vocale o liquida 
5- Vocale o liquida -■ liquida -> vocale 

I REM HVPHEN 

3 SH$="—": REM TRATTINO FANTASMA 
5 REM VARIABILI DI LAVORO 
7 DIMLL<255>,VV<255>,CC<255> 

9 DIMAS<3),L<3),V<3),C<3) 

II F0RI=iT05:READA$:VV<ASC<A$>>=-i:NEXTI 
13 F0RI=GT0i0:R£ADA$:VV<ASC<A$>>=-i 

15 LL<ASC<A$))=-1:NEXTI 

17 F0RI=11T021-READA$:CC<ASC<A$>>=-l:NEXTI 
19 REM RICHIESTA NOMI FILE INPUT E OUTPUT 
21 INPUT“FILE INPUT";FIS 
23 INPUT"FILE OUTPUT";FO$ 

25 REM APERTURA FILE 

27 0PEN2,8,2 J FIS:0PEN3,8,3 J F0$+",S,M" 

29 REM CICLO DI LETTURA DI UNA PAROLA 
31 A$="” 

33 GET**2,B$RS=ST 

35 IFBJO" "ANDB$OCHR$<13)THENA$=A$+B$G0T047 
37 G0SUB53REM VA A METTERE TRATTINO 
39 IFRS=0THENPRINTH3,B$; PRINTBS, G0T031 
41 REM CHIUDE SE FINITO FILE DI INPUT 
43 CL0SE3CL0SE2 
45 END 

47 IFRS=0THEN33 
49 GOT037 

51 REM ROUTINE CHE DIVIDE CON TRATTINO 
53 IFLEN<A$X4THENPRIHTA$; PRINTH3,AS, : RETURN 
55 FORI = lT0LEN(A$)-2 
57 A$(1)=MIDS(A$,1,1) 

59 A$<2>=MID$<A$,1+1,1» 

Gl A$<3>=MID$<A$,1+2,1) 

83 PRI NTA$<1); :PRINTM3,A$(1); :G0SUB91 
65 IFAS(1) = AS<2)ANDN0T(V<1)ANDNOTL <1))THEN77 
67 IFAS<1)="S"THEN79 

69 IFV<1>ANDAS<2)= ,, S"ANDAS<3>0"S"THEN77 
71 IFV(1)ANDC(2)ANDV(3)THEN77 
73 IFV(1>ANDL(2)AND(M< 3)ANDNOTL< 3>)THEN77 
75 G0T079 

77 IFI>LEH(AS)/2.5THEN83 
79 NEXTI:PRINTA$<2);A$<3); 
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81 PRINTM3,A$(2)A$(3); : RETURN 
83 PRINT"-";:PRIHT»3,SHS; 

85 PRINTMID$(A$,1+1,254); 

87 PRINTH3,MIDS(A$,1+1,254); RETURN 
89 REM ROUTINE CHE PRELEVA 3 CARATTERI 
91 E0RJ=1T03 
93 C(J)=CC(ASC(AS(J>)) 

95 U(J)=UV(ASC(A$(J))) 

97 L(J)=LL(ftSC(A$(J>)) 

99 NEXT:RETURN 

181 REM UOCALI E CONSONANTI 

103 REM UOCALI 

105 DATA A,E,I, O, U 

107 REM MUTE, LIQUIDE E NASALI (LIQUIDE) 

109 DATA H,L,M,N,R 

111 REM LABIALI, DENTALI, GUTTURALI (CONSONANTI) 
113 DATA B,C,D,F,G,P,Q,S,T,U,Z 


COMMENTO A HYPHEN 

•3: La variabile SH$ contiene il carattere da porre nel file di 
testo nei punti dove si può' dividere una parola. Il carattere 
tra virgolette e' SHIFT-@ per il programma EASY SCRIPT del 

COMMODORE 64. 

.5/17: Dimensiona' e riempie i tre vettori booleani. 

.19/27: Chiede i nomi dei files e li apre, uno in lettura, l’al-» 
tro in scrittura. 

.29/39 e 47/49: Riceve in A$ una parola dal file in ingresso e 
la passa al sottoprogramma in 53. Queste linee vengono ripetute 
fino alla fine del file di ingresso. 

.41/45: Chiude i file e termina 

.53: Se A$ ha meno di 4 caratteri non viene separata. 

.55/99: Ciclo che viene eseguito una volta per ogni carattere di 
A$, meno che per gli ultimi due caratteri. 

.65: Verifica condizione 1. 

.67: Verifica condizione 2. 

.69: Verifica condizione 3. 

.71: Verifica condizione 4. 

.73: Verifica condizione 5. 

.75: Se non si e' verificata nessuna delle condizioni, la paro¬ 
la non viene separata con il trattino fantasma. 

.77: Se e' stata superata la meta' della parola, viene aggiunto 
nel file SH$ (il trattino fantasma) e stampato sul video un trat-> 
tino. Una parola può' contenere un solo trattino fantasma. Puoi 
cambiare questa linea e porre tutti i trattini fantasma possi-* 
bili nella parola, se il tuo programma di stampa non si ferma al 
primo, come EASY SCRIPT del COMMODORE 64. 
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.87: Chiude il ciclo iniziato a 55 e ritorna dal sottoprogramma 
alla fine del ciclo. 

.91/99: Aggiorna i valori di tre vettori booleani temporanei in 
funzione dei tre caratteri da analizzare, ponendo, ad esempio, a 
C(2)=-1 se il secondo dei tre caratteri in questione e’ conso¬ 
nante dura. 

.101/113: Linee DATA che contengono le lettere. Non scambiare 
ne' l'ordine delle linee ne' dei caratteri. 


10.3 DISEGNO DEI CARATTERI 

La figura C.4 dell'appendice C riporta i caratteri ingranditi, 
facendo corrispondere un asterisco ad ogni puntino del carat¬ 
tere, cioè' ad ogni bit 1 della sua descrizione. 

La figura e' stampata dal programma DISECAR, che riportiamo in 
questo paragrafo. 

Il problema consiste nell'andare a prelevare dalla ROM la deaeri- 
zione di un carattere che ha uri determinato codice, espresso in 
D/CODE. Il COMMODORE PLUS- 1 ! ha memorizzate in ROM le descrizioni 
dei 128 caratteri del set maiuscolo/grafico e dei 128 caratteri 
del set minuscolo/maiuscolo. Queste descrizioni occupano in tut¬ 
to 2K byte (2048 byte). I caratteri in campo inverso si otten- 
gono scambiando i bit 0 con bit 1 e viceversa. La difficolta' 
consiste nel fatto che non si può' accedere dal BASIC alla ROM 
che contiene le descrizioni, che si trovano dal byte 53248 
($D000) al byte 55295 ($D7FF). Per questa ragione, prima di cari¬ 
care in memoria il programma DISECAR, si devono trasferire dalla 
ROM in RAM le descrizioni dei caratteri, con il comando MONITOR e 
la funzione T di trasferimento. Per lavorare si deve procedere 
cosi ' : 

.1) eseguire in modo immediato: 

POKE 55,0:POKE 56,55 

per abbassare il TOP della memoria dedicata al BASIC a 14079 
(36FFH). 

.2) eseguire in modo immediato: 

MONITOR 

T D000 D7FF 3700 

che trasferisce i 2048 byte che stanno da D000 a D7FF in 
quelli che iniziano in 3700 (che corrisponde all’indirizzo deci¬ 
male 14080). L'ultimo byte occupato risulta quello di indirizzo 
16127 (3EFFH). 

.3) caricare ed eseguire il programma DISECAR. 

Il programma chiede se vuoi ottenere il risultato su video o 
stampante, poi chiede il set di caratteri che desideri e il codi¬ 
ce del carattere in D/CODE, tra 0 e 255. Se il codice supera 127, 
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esso viene diminuito di 128 e viene posto a 1 lo swìtch SW, per 
ricordare che il carattere deve essere in campo inverso. 

Viene poi calcolato il valore del puntatore per prelevare gli 8 
byte della descrizione del carattere. Viene stampata un'inte¬ 
stazione e poi il carattere ingrandito usando degli asterischi, 
il valore binario e decimale di ogni byte della descrizione. Se 
SW=1 vengono invertiti i bit della descrizione per ottenere il 
campo inverso. 

Il programma termina dopo aver stampato un risultato, per prose-’ 
guire devi scrivere ancora RUN. 

Ricorda dopo aver eseguito il programma di rimettere al valore 
usuale i byte 55 e 56, oppure di eseguire un RESET. 


1 REM DISECAR 

3 IHPUftUlRISULTftTI SU STAMPANTE? <S/N> ";R$ 

5 PRINT:IFR$="N"THEN17 

7 REM APRE LA STAMPANTE E STAMPA TITOLO 
9 0PEN4,4:PRINTM4 

il PRINT#4,"***STAMPA IMMAGINE CARATTERI**»" 

13 PRINTM4 

15 REM SCELTA SET CARATTERI 

17 D$="" : PRINT”<IUALE SET UUOI USARE: " 

19 PRINT" 1 PER SET MAIUSCOLO/GRAFICO" 

21 PRINT" 2 PER SET MAIUSCOLO/MINUSCOLO" 

23 INPUT'VI!] OPZIONE :"; PS : IFD$=""THEN10i 
25 IFPSO‘*l**ANPDSO*'2‘ , THENPRINT** mTT ‘ : G0T023 
27 M$=" SET MAIUSCOLO/MINUSCOLO" 

29 IFPS="1“THENMS=“ SET MAIUSCOLO/GRAFICO" 

31 REM RICHIESTA P-COPE CARATTERE PA PISEGNARE 
33 PRINT"MUSCRIUI IL COPICE PEL CARATTERE" 

35 PRINT"IN 0/CODE";:SM=0:IMPUTO:PRINT 

37 IFP€00RP>255THEHPRINT" rmTn ** : G0T027 

39 REM SU=i SE COPICE >127 

41 P1=P:IFP>127THENP=P-128:SH=1 

43 REM PRELEVAMENTO DESCRIZIONE 

45 A=14080+<UAL<D$)-1>*1024 

47 FORK=0TO7:D<K>=PEEK<A+D*8+K>:NEXTK 

49 REM STAMPA DATI INIZIALI 

51 PRINT" L1 I L I L I 1 P/CQPE=" : P : MS : PRINT 

53 PRINT"CARATTERE CORRISP. AGLI 8 BVTES : " 

55 PRINT 

57 PRINT"CARATTERE MAL. BINARIO MAL. DEC." 

59 PRINT:PRINT : IFR$="N"THEN73 
61 PRINTH4,"P/CODE=";DI;MS :PRINTH4 
63 PRINTN4,"CARATTERE CORRISP. AGLI 8 BVTES:" 
65 PRINTM4 

67 PRINTM4," CARATTERE MAL. BINARIO "; 

69 REM PREPARAZIONE E STAMPA CARATTERE 
71 PRINTN4,"VAL. DEC.":PRINTN4 
73 FORK=0TO7:DS<K>="":E$<K>="":B=P(K> 

75 FORJ=0TO7:IFINTCB/2t<7-J>>=0THEN83 
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77 IFSM=iTHEND$(K>=D$<K)+" " :ES(K)=E$<K>+''0'':GOT 
081 

79 D$<K>=D$<K)+ ,, » ,, :E$<IO = E$<lodi¬ 
si B=B-2f<7-J):G0T087 

83 IFSM=1THEND$<K>=D$<K>+ ,, *":E$<K>=E$<K>+"1" GOT 
087 

85 D$<K)=D$<K>+" ":E$<K)=E$<K>+"0" 

87 NEXT J:NEXTK:FORK=0TO7 

89 PRINTD$< K > ; ” ";E$<K);“ ";D<K> 

91 IFRS=”N ,, THEN97 
93 PRIHTH4," D$<K> ; 

95 PRINTS4, E$<K) ; ";D<K> 

97 NEXTK 

99 REM CHIUSURA STAMPANTE 
101 IFR$ = "S ,, THENPRINTM4 : CL0SE4 
103 STOP 


10.4 CONTATORI 


Ci siamo proposti di estrarre un gruppo di numeri a caso, compre- 
si nell'intervallo 0--14000, e di calcolare le frequenze con le 
quali i numeri cadono in uno dei 14 intervalli che seguono: 


0-> 1000 
2001". 3000 
4001" 5000 
6001" 7000 
8001- 9000 
10001-11000 
12001-13000 


1001- 2000 
3001- 4000 
5001- 6000 
7001- 8000 
9001-10000 
11001-12000 
13001-14000 


Il programma all'inizio chiede quanti numeri a caso vuoi estrar" 
re e quale argomento iniziale vuoi usare per la funzione RND. 
Infatti dall'argomento iniziale dipende la sequenza: 

.l'argomento negativo fa partire la sequenza di estrazione da 
un punto determinato; se usi lo stesso numero negativo ottiene 
sempre gli stessi numeri ogni volta che fai girare il program- 
ma; 

.l'argomento nullo fa prelevare il seme per definire l’inizio 
delle estrazioni dal contatore TI, quindi questo dipende dal tem-. 
po trascorso dall'accensione del calcolatore; 

.l'argomento positivo fa proseguire l'estrazione dalla sequen¬ 
za già' in corso. 

Il programma usa il seme da te fornito per eseguire un'estra¬ 
zione iniziale fuori ciclo, poi prosegue con argomento positivo. 
Se dai un seme positivo e usi il programma subito dopo l'accen¬ 
sione ottieni sempre gli stessi risultati, infatti il seme 
iniziale e' sempre uguale. I numeri a caso estratti sono compre-, 
si tra 0 e 1 ; viene eseguito un semplice calcolo per ridurli 
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nell'intervallo 0-14000. Abbiamo scelto 14000 come limite, e 14 
intervalli di 1000 valori, per poter visualizzare in un solo qua¬ 
dro video i risultati. 

Il programma conta in un contatore generale i numeri estratti e 
calcola in tempo reale le frequenze andando ad aggiornare i 14 
contatori. 

Il quadro video presenta in 14 caselle i limiti dell'intervallo, 
evidenziandoli in campo inverso, e sotto ad ogni casella il valo¬ 
re della relativa frequenza. 

Può' presentare un certo interesse vedere come andiamo a scri¬ 
vere in posizioni predeterminate del video servendoci dell'istru¬ 
zione CHAR in modo testo. Nel programma abbiamo introdotto in 
linee DATA le "coordinate" di riga e colonna dove vogliamo scri¬ 
vere; le memorizziamo in due vettori e usiamo la coppia di 
coordinate che ci vuole per ogni contatore nell'istruzione CHAR. 
Ti facciamo notare che quando usi l'istruzione CHAR in modo testo 
non risulta valido il parametro "modo" (l'ultimo) che, invece, in 
modo grafico e' attivo e serve per ottenere il campo diretto o 
inverso. Noi per poter stampare in campo inverso dobbiamo usare i 
relativi caratteri di controllo nella stringa di stampa. 

Per poterti spostare sul video puoi ricorrere alla CHAR, oppure 
usare i caratteri di controllo del cursore e le funzioni TAB e 
SPC. 


I REM CONTATORI 

1 <;«=" •• 

5 IS="UT D$="S" 

7 REM DESCRIZIONE CONTATORI 
9 DATA " 0— 1000'V 1001— 2000" 

II DATA " 2001— 3000"," 3001— 4000" 

13 DATA " 4001— 5000"," 5001— 6000" 

15 DATA " 6001— 7000"," 7001— 8000" 

17 DATA " 8001— 9000"," 9001—10000" 

19 DATA "10001—11000","11001—12000" 

21 DATA "12001—13000","13001—14000” 

23 REM LIMITI RIPARTIZIONE 

25 DATA 13001,12001,11001,10001,9001,8001,7001 
27 DATA 6001,5001,4001,3001,2001,1001 
29 REM POSIZIONI STAMPA 

31 DATA 2,1,2,21,5,1,5,21,8,1,8,21,11,1,11,21 
33 DATA 14,1,14,21,17,1,17,21,20,1,20,21 
35 DATA 3,1,3,21,6,1,6,21,9,1,9,21,12,1,12,21 
37 DATA 15,1,15,21,18,1,18,21,21,1,21,21 
39 REM CARICAMENTO MATRICI 
41 DIMX<i4>,Y<i4>,Z<14>,W<I4> 

43 RESTORE31 

45 F0RK=iT0i4:READX<K),Y<K>NEXTK 
47 REST0RE35 

49 F0RK=1T014:READZ<K>,W<K>:NEXTK 
51 REM INIZIALIZZAZIONE CONTATORI 
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53 DIMC<14>:C=8 
55 FORK=iTO14:C<K>=0:NEXTK 

5? PRINT"LiO!l!lUSCRIUI QUANTI NUMERI A CASO UUOI" 
59 PRINT*'ESTRARRE TRA 0 E 14000” 

Gl INPUT"li]QUANTI : ”;R 

G3 PRINT"[!t]ESTRAZIONE DI “;R;" NUMERI A CASO" 

65 INPUT"l!]SEME PER RND : ";S 
67 PRINT"l!jSEME PER RND: ”;S 
69 PRINT"l!jPREMI UN TASTO PER CONTINUARE” 

71 GETKEVAS 

73 REM PREPARAZIONE QUADRO 
75 REST0RE9:PRINT*V 
77 F0RK=1T014:READA$ 

79 X=XCK>:Y=Y<K>:Z=Z<K> W=W<K> 

81 CHAR,V,X,I$+A$+D$ 

83 C$=S$+STR$<C<K>) 

85 CHAR,W,Z,RIGHT$<C$,i2> 

87 NEXTK 

89 CHAR,2,24,"CONTATORE GENERALE: ” 

91 REM ESTRAZIONE NUMERO 
93 N=RND(S) 

95 F0RJ=1T0RN=RND<1) 

97 N=1+INT<N»14000> 

99 REM CERCA INTERUALLO 
101 REST0RE25 
103 F0RK=14T02STEP-i 
105 READA 

187 IFN>=ATHENC<K>=C(K)+1:X=Z<K>.V=H<K>:G0T0117 
109 NEXTK 

111 CC1)=C(1)+1X=Z<1):V=M(1>:K=1:G0T0117 
113 NEXTJ 
115 G0T0115 

117 REM STAMPA CONTATORE 
119 CS=S$+STRS<C(K>) 

121 C=C*1 

123 CHAR,Y,X,RIGHTSCCS,12) 

125 CS=SS+STRS<C) 

127 CHAR,21,24,RIGHTS<CS,12) 

129 G0T0113 


COMMENTO A CONTATORI 

• 3/5: definizione S$ con 12 spazi, 1$ con il carattere di 
controllo RVS ON, D$ con il carattere di controllo RVS OFF. 

.7/21: linee DATA con le descrizioni dei 14 contatori. 

.23/27: linee DATA con i limiti per il controllo delle frequen-. 
ze; tali limiti sono solo 13 e in ordine decrescente, infatti i 
controlli si fanno in cascata partendo dal valore piu' alto. 

.29/37: linee DATA con i valori delle coordinate per le posi¬ 
zioni video delle descrizioni dei contatori e dei contatori. 
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.39/49: caricamento dei dati nelle relative matrici. 

.51/55: inizializzazione contatori delle frequenze. 

.57/71: richiesta dati iniziali. 

.73/89: preparazione quadro video iniziale. 

.91/113: ciclo di estrazione dei numeri e aggiornamento conta¬ 
tori . 

.115: ferma il programma in modo che anche premendo un tasto non 
si sciupa il quadro; per uscire premi STOP. 

.117/129: stampa del contatore che e' stato aggiornato. 


10.5 GRAFICO TRIDIMENSIONALE 

Il programma 3DP, nonostante sia scritto completamente in BASIC e 
sia breve, e' un programma abbastanza complesso e da' risultati 
molto spettacolari; esso infatti disegna funzioni reali di due 
variabili reali, disegna cioè' funzioni tridimensionali. 

Il programma disegna funzioni definite sulla parte di piano 
-2<X<2, -2<Y<2 che ammettano valori tra ni e 1. Se vuoi vedere 
l'andamento di una funzione su un dominio piu' ampio, ti convie¬ 
ne modificare la linea 500, in cui e' definita la funzione. Ad 
esempio, se vuoi vedere la funzione f(X,Y) su un dominio 
-10<X<10, nl0<Y<30, ti basterà' impostare la funzione 
f(X*5,Y*10+10)/M dove M e’ il massimo valore che 
ABS(f(X*5iY#10+10)) assume nell'intervallo -2<X<2, ^2<Y<2 o (che 
e' la stessa cosa) che la funzione f(X,Y) assume nell'intervallo 
-10<X<10, ->10<Y<30. Il programma disegna la funzione partendo 
dall'osservatore e procedendo verso "l'interno del monitor"; per 
sapere se il punto che ha disegnato e’ nascosto dal disegno 
precedentemente fatto, controlla se il punto che deve disegnare 
sullo schermo non e' compreso tra il punto piu' alto e il piu' 
basso di una stessa colonna di punti. Per ottenere questo avremo 
bisogno di due vettori di 320 elementi ciascuno (1 per colonna di 
punti) in cui potremo mettere rispettivamente il punto piu' alto 
e il punto piu’ basso disegnato su una colonna. Prima di presen¬ 
tare il listato del programma diamo ancora un'informazione che 
può' aiutare a comprenderlo: il COMMODORE PLUS- 1 ) calcola il valo¬ 
re della funzione tridimensionale dato un punto del piano: tale 
valore viene posto nella variabile Z3 e le coordinate del punto 
sono X 3 e Y3. X3, Y3 e Z3 sono le coordinate di un punto nello 
spazio. Il calcolatore dovrà' ora disegnare un punto su un piano 
(il video) in modo che dia l'impressione della profondità'. Per 
far ciò' usiamo l'assonometria, calcoliamo cioè' la coordinata 
verticale del piano (Y2) come Z3+X3/2 e la coordinata orizzon¬ 
tale del piano come (X2) come Y2+X3/2 (vedi Figura 10.1). 
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Figura 10.1 Rappresentazione in assonometria 


0 REM 3DP 

10 DIM MNX(319) , MXX<319> 

20 FORI=0TO319MNX<I>=199:MXX<I>=0:NEXT I 
30 COLORO,1 : COLORE.2,7 :C0L0R4,1 
40 GR0PHICi,1 

56 X3=-2:F0RV3=-2T02STEP.02 :GOSUB500:NEXT 
60 SP=. 3 

70 FORX3=-2TO2STEP.02:Y3=-2 
00 GOSUB500 V3=2 : GOSUB500 
90 RX=X3-INT<X3/SP>*SP 
100 F0RY3=-2+RXT02STEPSP 
110 GOSUB500 
120 NEXTY3 

130 F0RY3=2-RXT0-2STEP-SP 

140 GOSUB500 

158 NEXTY3:NEXTX3 

160 X3=2:F0RY3=-2T02STEP.02 :GOSUB500:NEXT 
170 GETKEYft$ 

ISO GR0PHIC0: END 
500 Z3=SIN<X3*Y3> 
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518 X2=i60+<Y3+X3/2>*49:Y2=100+<Z3+X3/2)»49 
520 IFY2>MXX<X2>THENMXZ<X2>=V2:GOTO550 
530 IFV2CHNX<X2)THENMNX<X2)=V2:G0TO560 
540 RETURN 

550 IFY2CMNX(X2)THENMNX<X2)=V2 
560 DRHH,X2,199-Y2: RETURN 


COMMENTO A 3DP 

.10: dimensiona i vettori MN e MX che conterranno i minimi e i 
massimi di ogni colonna. 

.20: pone a 0 il vettore dei massimi e a 199 quello dei mini¬ 
mi . 

.30: schermo e bordo neri, scritte bianche. 

.40: entra in modo grafico. 

.50: calcola e disegna in assonometria (appoggiandosi alla rou¬ 
tine in 500) il valore della funzione sul segmento X=->2, -2<Y<2, 
cioè' il segmento piu' vicino all'osservatore. 

.60: pone il passo del reticolo a 0,3. Aumentando il valore del¬ 
la variabile SP si otterrà' un reticolo a maglie piu' larghe, 
diminuendolo piu' strette. 

.70/80: inizializza un ciclo che incrementa la X (l'asse che va 
dall'osservatore verso lo schermo). Quindi calcola il valore del¬ 
la funzione per Y=-2 e Y=2, cioè' ai lati del dominio. 

.90/100: inizializza un ciclo che incrementa la Y con passo SP, 
partendo da un valore tale per cui il reticolo sara' diagonale 
rispetto agli assi. 

.110: calcola e disegna la funzione. 

.120: chiude il ciclo della Y. 

.130/140: esegue lo stesso lavoro per i valori della Y simme¬ 
trici, per disegnare le diagonali perpendicolari alle prime. 

.150: chiude i cicli della Y e della X. 

.160: come la linea 50 solo che il segmento e' X=2, -2<Y<2, 
cioè' il segmento piu' lontano dall'osservatore. 

.170: attende la pressione di un tasto. 

.180: il programma salta a questa linea anche se e' stato 
commesso un errore o se e' stato premuto il tasto STOP. Torna al 
modo testo e ferma il programma. 

.500: calcola il valore della funzione tridimensionale. 

.510: calcola i valori di X2 e Y2. 

.520: se il valore massimo della Y su quella colonna e' minore 
del valore appena calcolato pone il valore massimo della colonna 
al valore appena calcolato e salta a 550. 

.530: se il valore minimo della Y su quella colonna e' maggiore 
del valore appena calcolato pone il valore minimo della colonna 
al valore appena calcolato e salta a 560. 

.540: se il valore della Y2 cade tra massimo e minimo, il punto 
e' nascosto dalla funzione precedentemente disegnata e quindi non 
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deve essere disegnato. 

.550: il programma passa di qui se il valore della Y e' maggio¬ 
re del valore massimo su quella colonna. Supera l'IF se e' anche 
piu' piccolo del valore minimo, cioè' se e' il primo punto dì 
quella colonna. In tal caso pone anche il minimo uguale al valo¬ 
re attuale (il massimo era già' stato sistemato nella linea 520). 
.560: disegna il punto e torna. 

Segue nella Figura 10.2 il risultato del programma 3DP, ottenuto 
con il programma VIDEOGRAF. 



Figura 10.2 Grafico della funzione Z3=SIN(X3*Y3) 


Prova a sostituire alla linea 500 le seguenti linee: 

Z3=SIN(Y3*2) 

Z3=SIN(X3*X3+Y3*Y3) 

Z3=(X3*X3+Y3*Y3)*(X3*X3+Y3«Y3)/32-1 

Nelle Figure 10.3, 10.4 e 10.5 sono riportati i risultati otte-> 
nuti modificando la linea 500. 
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Figura 10.3 Grafico della funzione Z3=SIN(Y3*2) 



Figura IO. 1 ) Grafico della funzione Z3=SIN(X3*X3+Y3*Y3) 
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Figura 10.5 Grafico della funzione 

Z3=(X3*X3+Y3*Y3)*(X3*X3+Y3#Y3)/32-1 


10.6 UTILIZZO INTERRUPT 

Il programma INTERRUPT mostra come sia possibile, modificando 
opportunamente la routine di interrupt, fare svolgere al COMMO- 
DORÈ PLUS- 1 ) una funzione particolare "mentre" svolge una qualun¬ 
que attività' normale (EDITOR o esecuzione di un programma). Que-i 
sto programma, infatti, fa muovere un piccolo aeroplano sulla 
scritta "INTERRUPT MODIFICATO" che viene posta sulla prima linea 
dello schermo, mentre il calcolatore e' pronto a caricare e 
eseguire programmi, fare calcoli e tutto ciò' che può' fare 
normalmente. Per realizzare il nostro scopo "intercettiamo" la 
routine di interrupt, facciamo le operazioni necessarie per muo-i 
vere l'aeroplano e torniamo alla normale routine di interrupt. 
Per intercettare la routine di interrupt basta porre nei byte 
$0312, $0313 l'indirizzo di partenza della routine che si vuole 
inserire e finire la stessa con l'istruzione JMP $CE42. Questo 
programma mostra anche come puoi far muovere di un punto alla 
volta un carattere che si sovrappone ai caratteri che incontra e 
che li lascia inalterati una volta che li ha superati. Il nostro 
aeroplanino e' lungo 8 punti: per descriverlo usiamo pero' 16 
byte di memoria per poterlo far scorrere di un punto alla volta 
(vedi Figura 10.6). 

Per ricordare quali sono i due caratteri che sono coperti dalla 
nostra figura usiamo 2 buffer, memorizziamo cioè' nel buffer di 
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"ilr, Mira" il carattere "sotto" la punta e nel buffer di "sini^ 
dra" quello sotto la coda; fatti otto passi avanti riportiamo la 
l'itfura in posizione 0 e facciamo avanzare i due caratteri di una 
punizione. A questo punto dovremo mettere dove prima c'era la co¬ 
lla 11 contenuto del buffer di sinistra, nel buffer di sinistra il 

.itenuto del buffer di destra e nel buffer di destra ciò' che 

■’i'a davanti alla figura. Infine, per poter sovrapporre l'imma-i 
gIne dell'aeroplanino alle immagini dei caratteri che esso "sor- 
'"ila" teniamo 16 byte in cui facciamo scorrere l'immagine 
'lai L'aeroplano. Per visualizzarlo poniamo nei byte riservati ai 
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caratteri di D/CODE 126 e 127 l'immagine dell'aeroplano dopo aver 
eseguito la OR con i corrispondenti byte delle descrizioni dei 
caratteri i cui D/CODE sono contenti nel buffer. 

Il programma BASIC INTERRUPT abbassa i puntatori di fine memo- 1 
ria, pone in memoria il programma in linguaggio macchina, pone la 
descrizione dei caratteri in RAM (da $3800 in poi; verranno pero' 
usati solo i caratteri minuscoli che iniziano in $3C00), seie-, 
ziona il set minuscolo, scrive il messaggio, crea una finestra 
video, lancia la routine in linguaggio macchina e si autocana 
cella. 

Il programma in linguaggio macchina può' essere diviso in due 
parti : 

- la prima, INT1, (da $3B10 a $3854) inizializza il programma. 

-■ la seconda, INT2, (da $3B58 a $3BF9) e' la parte che verrà’ 
eseguita ad ogni chiamata di interrupt. 

I byte che servono al programma in linguaggio macchina per lavo- 1 
rare sono: 

$3BOO-$3BOF: contengono la descrizione dell'aeroplano che cam¬ 
bia ad ogni chiamata di interrupt (vedi Figura 10.6). 

$3B55: buffer di sinistra. 

$3B56: buffer di destra. 

$3B57 : posizione dell'aeroplanino nella matrice. 

$3FFO-$3FFF: sono i 16 byte che descrivono i caratteri di D/CODE 
126 e 127: contengono la descrizione dell'aeroplanino dopo che ha 
subito la OR con le immagini dei caratteri il cui D/CODE e' nel 
buffer. 

Ecco il listato del programma BASIC INTERRUPT: 

O ren interrupt 

10 poke56,53 :poke55,00 :c Ir 

11 fori=0to249reada pokel5104+i ,a :next 
20 pokeG5293,<peek<65293)and3>+56 

30 poke65298,peek(65298)and25i 

40 a$=" INTERRUPT MODIFICATO" 

41 printchrSC147)chr$(14)chrS<8>aS 

50 print:printchr$<27)"t":sysi5120:new 
1000 data8,12,204,255,255,204,12,8 
1010 data0,0,0,0,0,0,0,0 
1020 datal20,169,212,133,4,169,60,133 
1030 dataG,160,0,132,3,132,5,177 
1040 data3,145,5,200,208,249,230,4 
1050 data230,6,165;4,201,216,208,239 
1060 datal69,0,14i,87,59,i69,i2,133 
1070 data4,169,0,133,3,173,0,12 
1080 datai41,85,59,173,1,12,141,86 
1090 data59,169,59,141,19,3,169,88 
1100 datal41,18,3,88,96,0,0,0 
1110 datai73,87,59,20i,8,240,87,238 
1120 uata87,59,162,7,94,0,59,126 



1130 .13138,59,262,16,247,160,7,162 
1140 datai,189,85,59,133,5,163,0 
1150 datal33,6,6,5,38,6,6,5 
1160 data38,6,6,5,38,6,169,60 
1170 .1 ata24,101,6,133,6,177,5,202 
1180 data208,9,25,8,59,153,248,63 
1190 data76,161,59,25,0,59,153,240 
1208 data63,232,202,16,204,136,16,199 
1218 datal60,0,169,126,145,3,200,169 
1220 datai27,i45,3,76,66,206,169,0 
1230 datal41,87,59,162,7,189,8,59 
1240 datai57,0,59,169,0,157,8,59 
1250 data202,16,242,173,85,59,160,0 
1260 datal45,3,173,86,59,141,85,59 
1270 data230,3,165,3,20i,39,208,16 
1280 datal69,0,133,3,173,85,59,141 
1290 data39,12,173,0,12,141,85,59 
I300 datal60,1,177,3,141,86,59,76 
1310 data!09,59 


.".ugue il listato del programma 
dalle 2 routine INT1 e INT2: 

MONITOR 

PC SR AC XR VR SP 
, 0000 00 00 00 00 F8 


3B10 

78 



SEI 


3B11 

A3 

D4 


LDA 

MSD4 

3B13 

85 

04 


STA 

$04 

3B15 

A9 

3C 

\ 

LDA 

M$3C 

3B17 

85 

06 


STA 

$06 

3B19 

A0 

00 


LDV 

MS 00 

3B1B 

84 

03 


STV 

$03 

3B1D 

84 

05 


STV 

$05 

3B1F 

B1 

03 


LDA 

< $03),V 

3B21 

91 

05 


STA 

($05),V 

3B23 

C8 



INV 


3B24 

00 

F 9 


ONE 

S3B1F 

3B26 

E6 

04 


INC 

$04 

3B28 

E6 

06 


INC 

$06 

302 A 

A5 

04 


LDA 

$04 

3B2C 

C9 

D8 


CMP 

M$D8 

3B2E 

D0 

EF 


ONE 

S3B1F 

3B30 

A9 

00 


LDA 

MS 00 

3B32 

8D 

57 

3B 

STA 

S3B57 

3035 

A9 

0C 


LDA 

M$0C 

3B37 

85 

04 


STA 

$04 

3B39 

A9 

00 


LDA 

M$00 

3I13B 

85 

03 


STA 

$03 

3B3D 

AD 

00 

0C 

LDA 

$0C00 

3B40 

8D 

55 

38 

STA 

S3B55 

3043 

AD 

01 

OC 

LDA 

S0C01 


in linguaggio macchina, formato 


3B46 

8D 

56 

3B 

STA 

S3B56 

3B49 

A9 

3B 


LDA 

M$3B 

3B4B 

8D 

13 

03 

STA 

$0313 

3B4E 

A9 

58 


LDA 

M$58 

3B50 

8D 

12 

03 

STA 

$0312 

3B53 

58 



CLI 


3B54 

60 



RTS 



MONITOR 


PC 

SR AC XR 

VR SP 

; 0000 

00 l 

B0 l 

90 

00 F8 

. 3B58 

AD 

57 

3B 

LDA 

S3B57 

. 3B5B 

C9 

08 


CMP 

M$08 

. 3B5D 

F0 

57 


BEQ 

S3BB6 

. 3B5F 

EE 

57 

3B 

INC 

S3B57 

. 3B62 

A2 

07 


LDX 

M$07 

. 3B64 

5E 

00 

3B 

LSR 

$3B00,X 

. 3B67 

7E 

08 

3B 

ROR 

S3B08,X 

. 3B6A 

CA 



DEX 


. 3B6B 

10 

F7 


BPL 

S3B64 

. 3B6D 

A0 

07 


LDV 

MS07 

. 3B6F 

A? 

Si 


LDX 

MS01 

. 3B71 

BD 

55 

3B 

LDA 

S3B55,X 

. 3B74 

85 

05 


STA 

$05 

. 3B76 

A9 

00 


LDA 

M$00 

. 3B78 

85 

06 


STA 

$06 

. 3B7A 

06 

05 


ASL 

$05 
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3B7C 

26 

06 


ROL 

$06 

. 3BB6 

A9 

06 


LDA 

**$00 

3B7E 

06 

05 


ASL 

$05 

. 3BB8 

8D 

57 

3B 

STA 

$3B57 

3B80 

26 

06 


ROL 

$06 

. 3BBB 

A2 

07 


LDX 

**$07 

3B82 

66 

05 


ASL 

$05 

. 3BBD 

BD 

08 

3B 

LDA 

$3B68,X 

3B84 

26 

06 


ROL 

$06 

. 3BC0 

9D 

00 

3B 

STA 

$3B00,X 

3B86 

A9 

3C 


LDA 

**$3C 

. 3BC3 

A9 

06 


LDA 

**$00 

3888 

18 



CLC 


. 3BC5 

9D 

08 

3B 

STA 

$3B08,X 

3B89 

65 

66 


ADC 

$06 

. 3BC8 

CA 



DEX 


3B8B 

85 

06 


STA 

$06 

. 3BC9 

10 

F 2 


BPL 

$3BBD 

3B8P 

B1 

05 


LDA 

($05),V 

. 3BCB 

AD 

55 

3B 

LDA 

S3B55 

388F 

CA 



DEX 


. 3BCE 

A0 

00 


LDV 

**$00 

3B90 

DO 

09 


BUE 

S3B9B 

. 3BD0 

91 

03 


STA 

($03),V 

3B92 

19 

08 

3B 

ORA 

S3B08,V 

. 3BD2 

AD 

56 

3B 

LDA 

S3B56 

3B95 

99 

F 8 

3F 

STA 

$3FF8,V 

. 3BD5 

8D 

55 

3B 

STA 

$3B55 

3B98 

4C 

Al 

3B 

JMP 

S3BA1 

. 3BD8 

E6 

03 


INC 

$03 

3B9B 

19 

00 

3B 

ORA 

$3B0O,V 

. 3BDA 

A5 

03 


LDA 

$03 

3B9E 

99 

F 0 

3F 

STA 

$3FF0,V 

. 3BDC 

C9 

27 


CMP 

**$27 

3B Al 

E8 



INX 


. 3BDE 

D0 

10 


BNE 

$3BF0 

3BA2 

CA 



DEX 


. 3BE0 

A9 

00 


LDA 

**$00 

3BA3 

10 

CC 


BPL 

S3B71 

. 3BE2 

85 

03 


STA 

$03 

3BA5 

88 



DEV 


. 3BE4 

AD 

55 

3B 

LDA 

S3B55 

3BA6 

10 

C7 


BPL 

S3B6F 

. 3BE7 

8D 

27 

0C 

STA 

$0C27 

3BA8 

A0 

00 


LDV 

**$00 

. 3BE A 

AD 

00 

0C 

LDA 

$0C00 

3BAA 

A9 

7E 


LDA 

**$7E 

. 3BED 

8D 

55 

3B 

STA 

$3B55 

3BAC 

91 

03 


STA 

< $03) , V 

. 3BF0 

A0 

01 


LDV 

**$01 

3BAE 

C8 



INV 


. 3BF2 

B1 

03 


LDA 

($03),V 

3BAF 

A9 

7F 


LDA 

**$7F 

. 3BF 4 

8D 

56 

3B 

STA 

$3B56 

3BB1 

91 

03 


STA 

($03),V 

. 3BF7 

4C 

6D 

3B 

JMP 

$3B6D 

3BB3 

4C 

42 

CE 

JMP 

SCE42 








Nelle Figure 10.7 e 10.8 sono riportati i diagrammi a blocchi di 
INT1 e di INT2. 
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TRASFERISCE LE IMMAGINI DEI CARATTERI 
MINUSCOLI DALLA ROM IN RAM ($ 3000) 














Figura 10.8 


Diagramma a blocchi di INT2 
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Kd ecco, infine, la corrispondenza tra i blocchi dei diagrammi e 
Il listato dei programmi in linguaggio macchina: 


■SCHEMA INT1 : 


BLOCCO 

1 : 

linee 

3B10-3B2E. 

BLOCCO 

2 : 

linee 

3B30-3B32. 

BLOCCO 

3 : 

linee 

3B35-3B3B. 

BLOCCO 

4 : 

linee 

3B3D-3B46. 

BLOCCO 

5 : 

linee 

3B49-3B50. 

BLOCCO 

6 : 

linee 

3B53-3B54. 

ICHEMA INT2 



BLOCCO 

1 : 

linee 

3B58-3B5D. 

BLOCCO 

2 : 

linee 

3BB6-3BB8. 

BLOCCO 

3 : 

linee 

3BBB-3BC9. 

BLOCCO 

4 : 

linee 

3BCB-3BDO. 

BLOCCO 

5 : 

linee 

3BD2-3BD5. 

BLOCCO 

6 : 

linee 

3BD8. 

BLOCCO 

7 : 

linee 

3BDA-3BDE. 

BLOCCO 

8 : 

linee 

3BE0->3BE2. 

BLOCCO 

9 : 

linee 

3BE4-3BE10. 

BLOCCO 

10 

linee 

3BEA-i3BED. 

BLOCCO 

11 

linee 

3BFO-3BF7. 

BLOCCO 

12 

linee 

3B5F. 

BLOCCO 

13 

linee 

3B62-3B6B. 

BLOCCO 

14 

linee 

3B6D-i3B6f. 

BLOCCO 

15 

linee 

3B71-3B8B. 

BLOCCO 

16 

linee 

3B8D--3BA1 . 

BLOCCO 

17 

linee 

3BA2. 

BLOCCO 

18 

linee 

3BA3. 

BLOCCO 

19 

linee 

3BA5. 

BLOCCO 

20 

linee 

3BA6. 

BLOCCO 

21 

linee 

3BA8-3BB1. 

BLOCCO 

22 

linee 

3BB3. 


10.7 ESEMPIO DI USR 


Onesta routine in linguaggio macchina viene chiamata dal BASIC 
eoli la funzione USR; il parametro che viene passato e' un 
"lomento di un vettore di stringhe. La routine, chiamata ad 
esempio con l'istruzione A=USR(WR$(5)), ordina il vettore WR$ a 
partire dall'elemento 5 in poi e pone 0 nella variabile A. Quando 
passi, tramite USR, l'elemento di un vettore il BASIC pone: 

.in $60 $61 (96, 97) l'indirizzo del primo byte 

de 1i'intestazione del vettore (vedi Appendice E). 

.in $64 $65 (100, 101 ) l'indirizzo del primo dei tre byte di 

descrizione della stringa passata come parametro. 
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Poiché' dopo una SYS o una USR la CPU legge la ROM da $8000 
(32768) in poi, il programma deve essere posto tra $1001 e $8000. 
Una scelta può' essere quella di mettere il programma poco prima 
di $8000 e riservare al BASIC la memoria da $1001 all'inizio 
della routine: questa soluzione e’ consigliabile quando si 
conosce a priori l'occupazione del programma e delle variabili 
BASIC. Se pero', come in questo caso, la routine può' essere 
usata da diversi programmi BASIC la cui occupazione di memoria e' 
a priori sconosciuta, e' preferibile porre la routine stessa a 
partire da $1001 e spostare l’inizio del programma BASIC alla 
fine della routine linguaggio macchina. Per far ciò' devi 
inserire la linea: 

10 P0KE 1281 . 3^ : P0KE 1282,16: POKE 44,18:RUN 

Quando il calcolatore esegue questa linea pone il vettore di USR 
a $1022 e lancia l'esecuzione del programma BASIC in $1201 (il 18 
messo nel byte di indirizzo 44 corrispone al numero esadecìmale 
12, piu' significativo di $1201; 34 e 16 vorrispondono a $22 e 
$10 rispettivamente meno e piu' significativi di $1022). 

A questo punto dovrai dare i seguenti ordini in modo diretto: 

POKE 44,18 

POKE 18*256,0 

NEW 

Sposti cioè' l'inizio del BASIC a $1201, poni 0 nella cella $1200 
e inizializzi il BASIC nella sua nuova area. Se non poni 0 in 
$1200 (18*256 decimale), il calcolatore risponde SYNTAX ERR0R 

quando viene eseguito il comando NEW. 

Puoi ora inserire il programma ESEMPIO DI USR: 


0 REM ESEMPIO DI USR 

10 FORI=0TO396:READA:POKE4130+I,A:MEXTNEM 
1000 DATA120,141,63,255,32,46,16,141 
1010 DATA62,255,88,96,160,2,177,95 
1020 DATA24,101,95,133,208,200,177,95 
1030 DATA101,96,133,209,165,100,133,211 
1040 DATA165,101,133,212,165,211,24,105 
1050 DATA3,133,211,165,212,105,0,133 
1060 DATA212,197,209,144,13,208,6,165 
1070 DATA2il,197,208,144,5,169,0,133 
1080 DATA13.96,160,0,177,211,133,215 
1090 DATA200,177,211,133,216,200,177,211 
1100 DATA133,217,165,211,56,233,3,133 
1110 DATA211,165,212,233,0,133,212,160 
1120 DATA0,177,211,133,218,200,177,211 
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1130 DATA133,219,200,177,211,133,220,165 
i140 DAT0211,24,105,3,133,211,165,212 
1150 DATA105.0,133,212,32,143,17,176 
1160 DATA163,160,0,177,211,133,221,200 
1170 DATA177,211,133,222,200,177,211,133 
I180 DATA223,165,211,133,213,165,212,133 
I196 DATA214,56,165,213,233,3,133,213 
1 200 DATA165,214,233,0,133,214,165,221 
1210 DATA133,215,165,222,133,216,165,223 
1220 DATA133,217,160,0,177,213,133,218 
1230 DATA200,177,213,133,219,200,177,213 
I 240 DATA133,220,32,143,17,144,48,160 
I 250 DATA3,165,221,145,213,200,165,222 
1260 DATA145,213,200,165.223,145,213,160 
I 270 DATA5,177,213,133,226,136,177,213 
I 280 DATA133,225,136,177,213,168,165,213 
1290 DATA24,105,3,145,225,200,165,214 
I 300 DATA105,0,145,225,76,70,16,160 
1310 DATA0,177,213,133,224,200,177,213 
I 320 DATA133,225,200,177,213,133,226,200 
I330 DATA165,224,145,213,200,165,225,145 
I 340 DATA2i3,200,165,226,145,213,160,5 
I350 DATA177,213,133,226,136,177,213,133 
I360 DATA225,136,177,213,168,165,213,24 
I370 DATA105,3,145,225,200,165,214,105 
I380 DATA0,145,225,165,213,197,100,208 
I390 DATA6,165,214,197,161,240,3,76 
I180 DATA187,16,160,0,165,221,145,213 
MIO DATA200,165,222,145,213,280,165,223 
I420 DATA145,213,160,2,177,213,133,226 
I430 DATA136,177,213,133,225,136,177,213 
I440 DATA168,165,213,145,225,200,165,214 
I450 DATA145,225,76,70,16,165,215,133 
I460 DATA210,197,218,144,4,165,218,133 
I470 DATA210,198,210,168,255,200,177,216 
I400 DATA209,219,208,8,196,210,208,245 
1490 DATA165,215,197,218,96 


• i' nra esegui: 
fi IKK 1*11,16: SAVE"_ 

■ .il vi la zona di memoria che va da $1001 alla fine del programma 
"li" hai appena scritto. In questo modo, quando carichi questo 
ili" e dai HUN ti trovi automaticamente con l'inizio del BASIC in 
$1.9)1, con la routine caricata in memoria e il vettore di USR 
ini /,! alizzato; potrai quindi caricare un qualunque programma che 
imi rii' far uso di questa routine. 

Un'ultima osservazione prima di passare alla descrizione del 
l'i'iKramma: se lo carichi quando e' allocata l'area di memoria per 
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la grafica non funziona, infatti il programma che carica i dati 
in memoria non si trova piu' in $1201 ma in $4201 . Usando il 
comando GRAPHIC quando la routine e' già' stata ìnizializzata non 
avrai nessun problema poiché' essa e’ allocata nella zona di 
memoria inutilizzata in modo grafico (vedi Paragrafo 2.8 Figura 
2.4). 

L'algoritmo di ordinamento e*il seguente: 

1- pone N=2 

2- confronta l'elemento N con l'elemento N-1 

3- > se N>=N-1 pone N=N+1 e torna al punto 2 

4- altrimenti: 

a-> memorizza l’elemento di posizione N 
b-> pone l'elemento N-1 nella posizione N 
c-> confronta N con N-2 

d-^ se N-^2>N pone N-2 nel posto N-1 e continua con N~3 ... fino 
a quando non trova un elemento N->I minore dell'elemento N (o 
fino ad arrivare al primo elemento da ordinare del vettore) 
e-> pone l'elemento N nel posto N->I + 1 (vedi figura 10.9) 
fi pone N=N+1 

g-- torna al punto 2 fino ad aver esaurito tutti gli elementi 
del vettore. 



Figura 10.9 Algoritmo di ordinamento 


Passiamo ora al commento della routine in linguaggio macchina: 


MONITOR 


PC 

SR 

AC 

XR 

VR SP 

. 1032 

18 


CLC 


; 0000 

00 

00 

00 

00 F8 

. 1033 

65 

5F 

ADC 

S5F 

. 1022 

78 



SEI 


. 1035 

85 

DO 

STA 

SD0 

. 1023 

8D 

3F 

FF 

STA 

SFF3F 

. 1037 

C8 


INY 


. 1026 

20 

2E 

10 

JSR 

S102E 

. 1038 

B1 

5F 

LDA 

< $5F>,Y 

. 1029 

8D 

3E 

FF 

STA 

SFF3E 

. 103A 

65 

60 

ADC 

$60 

. 102C 

58 



CLI 


. 103C 

85 

DI 

STA 

$D1 

. 102D 

60 



RTS 


. 103E 

A5 

64 

LDA 

$64 

. 102E 

A0 

02 


LDV 

H$02 

. 1040 

85 

D3 

STA 

$D3 

. 1030 

B1 

5F 


LDA 

<$5F),Y 

. 1042 

A5 

65 

LDA 

$65 
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1044 

85 

D4 

ST0 

SD4 

. 1007 

85 

DD 

STB 

$DD 

1046 

05 

D3 

LD0 

$D3 

. 1009 

C8 


INV 


1048 

18 


CLC 


. 1000 

BI 

D3 

LD0 

<SD3>,V 

1049 

69 

83 

0DC 

WS 03 

. 100C 

85 

DE 

ST0 

$DE 

1048 

85 

D3 

ST0 

SD3 

. 100E 

C8 


INV 


104D 

05 

D4 

LD0 

SD4 

. 100F 

BI 

D3 

LD0 

< SD3),V 

104F 

69 

00 

0DC 

HS00 

. 10B1 

85 

DF 

ST0 

SDF 

1051 

85 

D4 

ST0 

SD4 

. 18B3 

05 

D3 

LD0 

$D3 

1053 

C5 

DI 

CMP 

SDÌ 

. 10B5 

85 

D5 

ST0 

$D5 

1055 

90 

0D 

BCC 

$1064 

. 10B7 

05 

D4 

LD0 

SD4 

1057 

D0 

06 

BNE 

S105F 

. 10B9 

85 

D6 

ST0 

$D6 

1059 

05 

D3 

LD0 

SD3 

. 10BB 

38 


SEC 


105B 

C5 

D0 

CMP 

$D0 

. 10BC 

05 

D5 

LD0 

$D5 

105D 

90 

05 

BCC 

$1064 

. 10BE 

E9 

03 

SBC 

#$03 

105F 

09 

00 

LD0 

#$00 

. 10C0 

85 

D5 

ST0 

$D5 

1061 

85 

OD 

ST0 

S0D 

. 10C2 

05 

D6 

LD0 

$D6 

1063 

60 


RTS 


. 10C4 

E9 

00 

SBC 

#S00 

1064 

00 

00 

LDV 

#S00 

. 10C6 

85 

D6 

STB 

$D6 

1066 

Bi 

D3 

LD0 

< SD3 > « V 

. 10C8 

05 

DD 

LD0 

$DD 

1068 

85 

D7 

ST0 

$D7 

. 10C0 

85 

D7 

ST0 

$D7 

1060 

08 


INV 


. 10CC 

05 

DE 

LD0 

$DE 

1068 

81 

D3 

LD0 

< $D3),V 

. 10CE 

85 

D8 

STB 

$D8 

L06D 

85 

D8 

ST0 

$D8 

. 10D0 

05 

DF 

LDB 

SDF 

106F 

08 


INV 


. 10D2 

85 

D9 

STB 

$D9 

1070 

Bi 

D3 

LD0 

<$D3> j V 

. 10D4 

00 

00 

LDV 

#$00 

1072 

85 

D9 

ST0 

$D9 

. 10D6 

BI 

D5 

LDB 

<$D5>,Y 

1074 

05 

D3 

LD0 

SD3 

. 10D8 

85 

D0 

STB 

SDB 

1076 

38 


~ SEC 


. 10D0 

C8 


INV 


1077 

E9 

03 

SBC 

#$03 

. 10DB 

BI 

D5 

LDB 

<SD5),V 

1079 

85 

D3 

ST0 

SD3 

. 10DD 

85 

DB 

STB 

SDB 

107B 

05 

D4 

LD0 

SD4 

. 10DF 

C8 


INV 


107D 

E9 

00 

SBC 

#S00 

. 10E0 

BI 

D5 

LDB 

<$D5>,V 

I07F 

85 

D4 

ST0 

SD4 

. 10E2 

85 

DC 

STB 

SDC 

1081 

00 

00 

LDY 

tt$00 

. 10E4 

20 

8F 

11 JSR 

S118F 

1083 

BI 

D3 

LD0 

<$D3>,V 

. 10E7 

90 

30 

BCC 

$1119 

1 085 

85 

D0 

ST0 

SD8 

. 10E9 

00 

03 

LDV 

#$03 

1087 

C8 


INV 


. 10EB 

05 

DD 

LDB 

SDD 

1088 

BI 

D3 

LD0 

<$D3>,V 

. 10ED 

91 

D5 

STB 

(SD5 >,V 

1080 

85 

DB 

ST0 

SDB 

. 10E1 

C8 


INV 


I08C 

C8 


INV 


. 10F0 

05 

DE 

LDB 

SDE 

188D 

Bi 

D3 

LD0 

<$D3),V 

. 10F2 

91 

D5 

STB 

< SD5),V 

I08F 

85 

DC 

ST0 

$DC 

. 10F4 

C8 


INV 


1091 

05 

D3 

LD9 

$D3 

. 10F5 

05 

DF 

LDB 

SDF 

1093 

18 


CLC 


. 10F7 

91 

D5 

STB 

(SD5 >,V 

1094 

69 

03 

0DC 

#$03 

. 10F9 

00 

05 

LDV 

#S05 

1096 

85 

D3 

ST0 

SD3 

. 10FB 

Bi 

D5 

LDB 

< SD5) , V 

1098 

05 

D4 

LD0 

$D4 

. 10FD 

85 

E2 

STB 

SE2 

resfì 

CO 

U 11 

oa 

IM» 

P-D 

S5SG 

. 10FF 

88 


DEV 


1 09C 

85 

D4 

ST0 

$D4 

. 1100 

BI 

D5 

LDB 

<$D5>,Y 

I09E 

20 

8F 

11 JSR 

S118F 

. 1102 

85 

Ei 

STB 

SEI 

1001 

B0 

03 

BCS 

$1046 

. 1104 

88 


DEV 


1003 

00 

00 

LDV 

#$00 

. 1105 

Bi 

D5 

LDB 

(SD5),V 

1005 

BI 

D3 

LD0 

< $D3),V 

. 1107 

08 


T0V 
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1108 

05 

05 

LO0 

$05 

. 1159 

OD 

06 


BNE 

$1161 

1100 

18 


CLC 


. 115B 

05 

D6 


LDA 

$D6 

1108 

69 

03 

0OC 

#$03 

. 1150 

C5 

65 


CMP 

$65 

110D 

91 

Ei 

ST0 

($E1),V 

. 115F 

F0 

83 


BEO 

$1164 

110F 

C8 


INV 


. 1161 

4C 

BB 

10 

JMP 

$10BB 

1110 

A5 

D6 

LD0 

$06 

. 1164 

00 

00 


LOV 

#$00 

1112 

69 

00 

0DC 

#$00 

. 1166 

05 

00 


LOA 

$00 

1114 

91 

E1 

ST0 

(SEi).V 

. 1168 

91 

D5 


STA 

($05),V 

1116 

4C 

46 10 

JMP 

$1046 

. 1160 

C8 



INV 


1119 

00 

00 

LOV 

#$00 

. 116B 

05 

OE 


LOA 

SOE 

111B 

81 

D5 

LD0 

< $05 ) , V 

. 1160 

91 

05 


STA 

($05),V 

111D 

85 

E0 

ST0 

$E0 

. 116F 

C8 



INV 


111F 

C8 


INV 


. 1170 

05 

DF 


LOA 

$DF 

1123 

61 

05 

LDn 

<$S>5>, V 

. 1172 

91 

05 


STA 

($D5),V 

1122 

85 

E1 

ST0 

$E1 

. 1174 

00 

02 


LOV 

#$02 

1124 

C8 


INV 


. 1176 

B1 

05 


LDA 

($05),V 

1125 

B1 

D5 

LD0 

($05 >,V 

. 1178 

85 

E2 


STA 

$E2 

1127 

85 

E2 

ST0 

$E2 

. 1170 

88 



OEV 


1129 

C8 


INV 


. 117B 

B1 

05 


LOA 

($05),V 

1120 

05 

E0 

LD0 

$E0 

. 1170 

85 

Ei 


STA 

SEI 

112C 

91 

05 

ST0 

( $05),V 

. 117F 

88 



OEV 


112E 

C8 


INV 


. 1180 

B1 

05 


LOA 

($05),V 

112F 

05 

E1 

LD0 

SEI 

. 1182 

08 



TAV 


1131 

91 

05 

ST0 

($05),V 

. 1183 

05 

05 


LOA 

$05 

1133 

C8 


INV 


. 1185 

91 

EI 


STA 

(SEI),V 

1134 

05 

E2 

LD0 

$E2 

. 1187 

C8 



INV 


1136 

91 

05 

ST0 

($05),V 

. 1188 

05 

06 


LDA 

$06 

1138 

08 

05 

LOV 

#$05 

. 1180 

91 

EI 


STA 

(SEI).V 

1130 

B1 

05 

LD0 

($05),V 

. 118C 

4C 

46 

10 

JMP 

$1046 

113C 

85 

E2 

ST0 

$E2 

. 118F 

05 

07 


LOA 

$07 

113E 

88 


DEV 


. 1191 

85 

02 


STA 

$D2 

113F 

B1 

05 

LD0 

(SD5),V 

. 1193 

C5 

00 


CMP 

$0 A 

1141 

85 

E1 

ST0 

SEI 

. 1195 

90 

04 


BCC 

S119B 

1143 

88 


DEV 


. 1197 

05 

00 


LDA 

$00 

1144 

B1 

05 

LD0 

($05),V 

. 1199 

85 

02 


STA 

$02 

1146 

08 


T0V 


. 119B 

C6 

02 


DEC 

$D2 

1147 

05 

05 

LD0 

$D5 

. 119D 

00 

FF 


LOV 

#$FF 

1149 

18 


CLC 


. 119F 

C8 



INV 


1140 

69 

03 

0OC 

#$03 

. 1100 

B1 

08 


LOA 

($08),V 

114C 

91 

E1 

ST0 

($E1>,V 

. 1132 

n i 

OE 


CHP 

CSDB),V 

114E 

C8 


INV 


. 1104 

00 

08 


BNE 

S110E 

114F 

05 

D6 

LO0 

$06 

. 1106 

C4 

02 


CPV 

$02 

1151 

69 

00 

0OC 

#$00 

. 1108 

00 

F5 


BNE 

S119F 

1153 

91 

E1 

ST0 

($Ei>,V 

. 1100 

05 

D7 


LOA 

$07 

1155 

05 

05 

LO0 

$05 

. 110C 

C5 

OA 


CMP 

$00 

1157 

C5 

64 

CMP 

$64 

. 110E 

60 



RTS 


prime 

sei linee di 

programma 

selezionano 

la 

RAF 

[ da 

$8000 in 


poi in modo che il programma possa leggere le stringhe che 
vengono memorizzate in quella zona. 

Il diagramma del programma e' il seguente: 
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MAX = N° elementi 



Eigura 10.10 Schema a blocchi del programma ESEMPIO DI USR 













I TEST CONTRASSEGNATI DA * 

VENGONO EFFETTUATI CON QUESTO SCHEMA, 
CHE SVOLGE IL TEST A$ > B$ ? 



Figura 10.11 Schema a blocchi del sottoprogramma 
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Le linee da 1064 a 10A1 e da 10C8 a 10E7 pongono in sei byte di 
passaggio parametri, le lunghezze e i puntatori al primo 
carattere delle stringhe che la subroutine da 118F a 11 AC deve 
i-onfrontare; la routine tornerà' i flag di zero e di carry 
alterati come li avrebbe alterati un'istruzione CMP. 

Kd ecco infine la corrispondenza tra i blocchi del diagramma e le 
IInee del programma: 


BLOCCO 

1 : 

linee 

102E-103C 

BLOCCO 

2 : 

linee 

1 03E-4 044 

BLOCCO 

3 : 

linee 

1046-1051 

BLOCCO 

4 : 

linee 

1053-105D 

BLOCCO 

5 : 

linee 

105F-1063 



il BASIC che il 

BLOCCO 

6 : 

linee 

1064-10A1 

BLOCCO 

7 : 

linee 

10A3“10B1 

BLOCCO 

8 : 

linee 

10B3-1OB9 

BLOCCO 

9 : 

linee 

10BB->10C6 

BLOCCO 

10: 

linee 

10C8-10E7 

BLOCCO 

11 : 

linee 

10E9-1116 

BLOCCO 

12: 

linee 

1119-1153 

BLOCCO 

13: 

linee 

11 55--11 61 

BLOCCO 

14: 

linee 

1164-M18C 

BLOCCO 

15: 

linee 

118F-119B 

BLOCCO 

16: 

linee 

119D 

BLOCCO 

17: 

linee 

L19F 

BLOCCO 

18- 

19: linee 11A0-1 

BLOCCO 

20: 

linee 

11 A6-*11A8 

BLOCCO 

21 : 

linee 

11AA-11AC 


(prima di tornare avvisa 
risultato e' numerico) 


A4 
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APPENDICE A 


IL BASIC 3.5 


A.1 INTRODUZIONE 

Il BASIC e' un linguaggio per programmare un calcolatore elettro¬ 
nico di tipo: 

•CONVERSAZIONALE, 

-INTERPRETATIVO. 

11 termine CONVERSAZIONALE significa che durante la stesura del 
programma, la sua prova e la sua esecuzione, l'utente può' inter¬ 
venire per controllare risultati intermedi, apportare modi¬ 
fiche, correggere errori segnalati dal sistema, e tutto questo e' 
ottenibile con facilita' e immediatezza. 

II termine INTERPRETATIVO significa che nella memoria del calco¬ 
latore sono costantemente presenti, oltre al programma scritto in 
BASIC: 

.un programma di sistema, che si chiama INTERPRETE BASIC, 

.un Insieme di programmi di sistema, che costituiscono il SISTEMA 
OPERATIVO, 

" che essi interagiscono tra loro mettendo in grado l'utente di 
lavorare. 

Il SISTEMA OPERATIVO e 1'INTERPRETE BASIC costituiscono l'inter¬ 
faccia tra l'utente e il calcolatore, che ha un suo linguaggio, 
ll linguaggio macchina, e un suo modo di funzionare, che possono 
unsere ignorati dall'utente. 

Nul COMMODORE PLUS-4 il SISTEMA OPERATIVO e 1'INTERPRETE BASIC 
risiedono stabilmente in una zona di memoria ROM di 32K byte. 

Il BASIC del COMMODORE PLUS _i l e' una implementazione (versione) 
molto potente di questo linguaggio; essa e' siglata 3.5. 

I,'alfabeto del BASIC e' formato dai seguenti caratteri: 

-In 26 lettere dell'alfabeto 
ABCDEFGHIJKLM 
NOPQRSTUVWXYZ 
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•le 10 cifre decimali 
01 23456789 

•lo spazio 

.19 caratteri speciali. 

" # $ ? *()* + , 
- / : ;< = >?“ 


tutti presenti sulla tastiera. 

Tutti i caratteri disponibili da tastiera, anche quelli non cita¬ 
ti sopra, possono essere usati all'interno delle stringhe. 


Gli elementi del linguaggio sono: 


.COMANDI, 

.FUNZIONI, 

.VARIABILI, 


.ISTRUZIONI, 

.OPERATORI, 

.COSTANTI, 


organizzati, secondo regole, in frasi o linee. 


Le frasi del linguaggio possono essere scritte in due modi diver¬ 
si : 


-per ESECUZIONE IMMEDIATA, 
.per ESECUZIONE DIFFERITA. 


La distinzione viene fatta in base alla presenza di un numero 
all'inizio della linea; se non e' presente un numero vengono 
eseguiti subito, alla pressione del RETURN, i comandi e/o le 
istruzioni indicati. Se, invece, la linea inizia con un numero, 
essa viene memorizzata nell'area programma, inserendola al posto 
giusto in base al numero, per esecuzione differita. 

Comunque la linea rappresenta un programma per il calcolatore, 
che può' al limite consistere in un solo comando. 

Qualora di una linea di programma facciano parte piu' comandi e/o 
istruzioni, essi devono essere separati dal carattere La 
lunghezza di una linea di programma può' essere di al massimo 88 
caratteri. 

I comandi, le istruzioni e le funzioni sono formate da PAROLE 
CHIAVE, che sono riservate, cioè' non possono essere usate per 
scopi diversi da quelli stabiliti, accompagnate, eventualmente, 
da parametri che ne precisano il significato. 

Sono COMANDI quelle istruzioni che agiscono sulla preparazione e 
la verifica del programma, la sua memorizzazione su nastro o 
disco magnetico e il suo richiamo in memoria, la sua esecuzione, 
la situazione della memoria e la predisposizione dei tasti 
funzione. Sono ISTRUZIONI tutte le altre. Di norma i comandi ven- 
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gono usati in modo immediato, ma possono essere usati anche in 
modo differito, quando la cosa abbia senso logico. Non tutte le 
Istruzioni possono essere usate in modo immediato, 
he FUNZIONI sono istruzioni particolari che forniscono un risul¬ 
tato numerico o stringa, o di stampa. 

Una linea di programma e' formata dai seguenti elementi: 

.NUMERO DI LINEA, da 0 a 63999, manca per esecuzione immediata, 
•PAROLE CHIAVE (comandi, istruzioni, funzioni), 

•COSTANTI, 

•VARIABILI, 

•OPERATORI, 

•CARATTERI SEPARATORI. 

I caratteri separatori ammessi sono: 

•lo spazio (che può' essere anche omesso, con lo svantaggio di 
rendere difficile la lettura, ma con il vantaggio di fare rispar-> 
miare memoria), 

. i due punti (":"), 

•la virgola (","), 

•il punto e virgola (";"). 


A.2 COSTANTI E VARIABILI 
Le COSTANTI possono essere: 

•NUMERI INTERI, che vengono considerati tali solo se compresi tra 
-32767 e +32767. I numeri interi non compresi nell'intervallo 
citato vengono considerati reali. 

•NUMERI REALI, che vengono stampati in forma decimale fino a 9 
cifre (in valore assoluto minori di o uguali a 999999999, e non 
compresi nell'intervallo -0.1/+0.1, escluso lo zero), in forma 
esponenziale oltre. 

•STRINGHE di caratteri alfanumerici, che sono in generale delimi¬ 
tate dal carattere virgolette. Esse non devono superare i 255 
caratteri, ma, se fanno parte di una linea di programma, devono 
avere una lunghezza che non provochi il superamento degli 88 
caratteri consentiti per la linea. Nel seguito viene indicato 
quando una stringa di caratteri può’ essere scritta senza virgo- 
lette delimitatrici. 

Le costanti possono essere introdotte direttamente nelle linee di 
programma, oppure possono essere assegnate a delle variabili e 
richiamate mediante il nome delle variabili. 

Nella memoria del calcolatore sono contenute due costanti specia¬ 
li; una e' richiamata dai tasti 

CBM-= ed e' t: (tt= 3.1 4159265), l'altra si ottiene con la funzione 
EXP(1) ed e' il numero irrazionale "e", base dei logaritmi natu- 
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rali (e=2.71828183); queste costanti sono memorizzate con valore 
approssimato. 

Le VARIABILI possono essere dei seguenti tipi: 

•NUMERICHE INTERE, 

.NUMERICHE REALI 
•STRINGA 

.NUMERICHE INTERE CON INDICE, 

.NUMERICHE REALI CON INDICE, 

■STRINGA CON INDICE. 

Il tipo delle variabili viene evidenziato dal nome; le regole per 
la formazione dei nomi sono: 

•formati da lettere o cifre, 

.il primo carattere deve essere una lettera 
.possono essere lunghi a piacere, 

.vengono distinti in base ai primi 2 caratteri, 

.devono terminare con il suffisso "J" per indicare numeri inte¬ 
ri, 

.devono terminare con il suffisso per indicare stringhe, 

.la mancanza di suffisso indica variabili numeriche reali, 

.non possono far parte del nome le parole chiave del BASIC, 

.la presenza di una coppia di parentesi dopo il nome con all'in¬ 
terno dei numeri o delle variabili numeriche, separati da virgo¬ 
le, indica che si tratta di variabili con indice del tipo speci¬ 
ficato dal nome. Gli indici sono considerati solo per la parte 
intera, con troncamento degli eventuali decimali; essi partono da 
0, cioè' il primo elemento ha indice 0. 

Quando viene lanciato un programma con il comando RUN le varia¬ 
bili numeriche sono inizializzate al valore 0 e le variabili 
stringa alla stringa nulla. La stringa nulla e' una stringa che 
non contiene caratteri, di lunghezza 0; viene indicata da due 
virgolette vicine. 

Le due stringhe A1$ e A2$ che seguono sono diverse: 

A1$=" " contiene uno spazio e ha lunghezza 1, 

A2$="" e' una stringa nulla di lunghezza 0. 

Le variabili vengono riempite, cioè' contengono dati, per effet¬ 
to di una delle seguenti operazioni: 

•ASSEGNAZIONE, con o senza la parola chiave LET, 

A$="BELL0", N=56.3 1 1, P?=65 1 17, LET B$="piove”. 

•LETTURA, realizzata o con l'istruzione READ dall'interno del 
programma, o con le istruzioni GET, GETKEY e INPUT da tastiera, o 
con le istruzioni GET# e INPUT# da una periferica esterna. 

Le variabili, non con indice, contengono un singolo dato; esse 
possono essere chiamate VARIABILI SINGOLE. Le VARIABILI CON 
INDICE sono riferite a un gruppo di dati, esse hanno tutte lo 
stesso nome e vengono distinte tra loro in base agli indici; 


352 



vengono chiamate anche ARRAY o MATRICI. Questa categoria di 
variabili risulta molto utile per trattare dati che appartengono 
a un insieme, che ha senso logico considerare globalmente. Il 
numero di indici da assegnare ad una variabile dipende dalle 
caratteristiche del gruppo di dati che la variabile deve rap¬ 
presentare. Per una lista di dati basta un indice. Per dati rag¬ 
gruppati in una tabella bidimensionale, servono due indici, il 
primo rappresenta le righe, il secondo le colonne della tabella. 
Con 3 indici si possono trattare variabili visualizzabili in uno 
spazio a 3 dimensioni. 

In questa implementazione del BASIC non esìste un limite teorico 
al numero di indici (dimensioni) assegnabili, in quanto questo 
può' essere pari a 255, caso difficilmente verificabile. Inol¬ 
tre, ogni dimensione può* raggiungere il massimo degli interi 
positivi, cioè' 32767, cosa peraltro impossibile date le dimen¬ 
sioni della memoria del COMMODORE PLUS-^. Gli indici partono dal 
valore 0. 

Esiste una istruzione per definire le variabili con indice, la 
DIM; essa deve essere usata per definire variabili per le quali 
almeno un indice superi il numero 10, cioè' gli 11 elementi. Per 
le variabili per le quali ogni indice raggiunge al massimo il 
valore 10, il BASIC provvede a una definizione implicita la pri¬ 
ma volta che viene citata la variabile con indice. 

Esempi di variabili: 

BELLO numero reale, nome riconosciuto come BE 

BESTIA numero reale, nome riconosciuto come BE 

N% numero intero 
B$ variabile stringa 

C(23) numerica reale con indice, definita con DIM 

B?(7) numerica intera con indice, può' non essere definita con 

DIM (indice<11 ) 

F(10,15,6) numerica reale con 3 indici, definita da DIM 

Le VARIABILI B00LEANE o LOGICHE sono variabili che nascono 
dall'esecuzione di particolari istruzioni nel corso del program¬ 
ma con il significato di VERO o FALSO; in realta', come vedremo, 
possono essere considerate di tipo aritmetico. 

VARIABILI RISERVATE 

Le variabili elencate nella Tabella B.il sono ri servate, cioè' 
non possono essere usate nei programmi per scopi diversi da quel¬ 
li loro assegnati dal sistema. Vediamo il loro significato. 

DS e' la variabile di stato per le operazioni disco e serve per 
leggere dal canale comandi. Per ottenere un messaggio piu' leggi¬ 
bile, si può' usare l'analoga variabile stringa DS$. 
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EL contiene il numero di linea dove si e' verificato un errore. 

ER contiene il numero dell'ultimo errore che si e' verificato. 
ERR$ e' il nome di una funzione che permette di vedere la descri¬ 
zione dell'errore il cui numero e' in ER. 

ST e' una variabile di stato che contiene dopo una operazione di 
INPUT o OUTPUT, non diretta alla tastiera o al video, un numero 
che con il suo valore da' notizia sull'esito dell'operazione 
stessa. Essa serve per riconoscere se l'operazione e' andata a 
buon fine, se si e' verificato un errore, o se si sono veri¬ 
ficate particolari condizioni, come la fine di un file. 

TI e TI$ si riferiscono all'orologio interno del COMMODORE 
PLUS-»). 

TI viene azzerato al momento dell'accensione del calcolatore o 
del RESET; esso viene incrementato di 1 ogni 60-esimo di secon¬ 
do, per cui con opportuni calcoli si può' conoscere il tempo 
trascorso. TI può' essere evidenziata con una istruzione di 
OUTPUT e il suo contenuto può' essere trasferito in un'altra 
variabile, ma non può' ricevere direttamente un valore. 

TI$ e' una variabile stringa di 6 caratteri; essa contiene nei 
primi due caratteri le ore (da 0 a 23), nei successivi due i 
minuti (da 0 a 59) e negli ultimi due i secondi (da 0 a 59). Il 
suo contenuto dipende da TI, ma in essa si può' scrivere per 
inizializzare l'orologio come si desidera. Quando si modifica 
TI$, viene automaticamente modificato TI. In conclusione TI$ può' 
essere letta e scritta, TI può' essere letta, ma scritta solo in 
modo indiretto tramite TI$. Quando TI$="235959" viene auto¬ 
maticamente azzerata TI e aggiornata TI$. 


A.3 OPERATORI ARITMETICI, RELAZIONALI E LOGICI 

Il BASIC consente di scrivere espressioni formate da COSTANTI e 
VARIABILI collegate tra loro da OPERATORI che possono essere di 
tipo ARITMETICO, RELAZIONALE, LOGICO. 

Gli OPERATORI ARITMETICI sono: 

+ somma (segno +) - sottrazione (segno -) 

* moltiplicazione / divisione 

" elevato a ( aperta parentesi 

) chiusa parentesi 

Gli OPERATORI RELAZIONALI sono: 

< minore di = uguale a 

> maggiore di <= < di o = a 

>= > di o = a <> non uguale a 
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Gli OPERATORI LOGICI sono: 


AND e (l'uno e l'altro) 
OR o (l'uno o l'altro) 
NOT no (negazione) 


Le espressioni vengono elaborate partendo da sinistra e andando 
verso destra, rispettando le regole di precedenza che seguono, 
riportate dalla piu' alta alla piu' bassa: 


* elevato a 
segno meno 
*/ moltipl. e div 
somma e sottr. 
>=< relazione 
NOT negaz. logica 
AND AND logico 
OR OR logico 


Se nell'espressione 
figurano delle pa¬ 
rentesi, esse sono 
elaborate dando la 
precedenza a quelle 
piu' interne. 


Nel calcolo delle espressioni numeriche ogni operazione tra due 
operandi da' come risultato un numero reale; alla fine del cal¬ 
colo il risultato finale viene assegnato alla variabile che sta a 
sinistra dell'uguale rispettandone il tipo. 


L'unica operazione aritmetica eseguibile tra stringhe e’ la som¬ 
ma; essa consiste nell'unione delle due stringhe operando. 


Le espressioni numeriche possono avere come operandi anche 
funzioni numeriche; analogamente le espressioni che danno come 
risultato una stringa possono avere come operandi funzioni strin¬ 
ga. 

Gli operatori relazionali vengono usati per confrontare tra loro 
due espressioni; questo confronto ha significato numerico per 
espressioni numeriche, mentre ha un significato basato sull'or¬ 
dinamento per espressioni stringa. Nel confronto tra stringhe 
vengono confrontati tra loro i codici ASCII dei caratteri compo¬ 
nenti partendo da sinistra. I codici sono tali da mantenere il 
normale ordinamento alfabetico. 

Dal confronto tra due operandi qualunque nasce una VARIABILE 
LOGICA, che può' avere il significato di VERO o di FALSO, ma che 
ha un corrispondente significato aritmetico, -1 per VERO e 0 per 
FALSO. Questo fatto consente di introdurre in espressioni nume-> 
riche anche espressioni di tipo relazionale. 

Esempi : 


N?=R1 $>R2$ N$=->1 se R1$>R2$ 

N$= 0 se RI$=R2$ oppure R1$<R2$ 
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A$="PIPPO" B$="PIPPO ", risulta A$<B$, infatti B$ contiene uno 
spazio dopo la parola PIPPO. 

B=123^5 B$=12345, risultano uguali anche se B e' una variabile 
reale e B$ una variabile intera. 

I confronti tra risultati numerici di calcoli complessi possono 
presentare piccole differenze dovute allo svolgimento dei cal- 
coli in binario nella memoria del calcolatore. 

Gli OPERATORI LOGICI, detti anche BOOLEANI, possono collegare tra 
loro due espressioni di qualunque tipo. L'applicazione di questi 
operatori produce un risultato logico di VERO o di FALSO in una 
variabile che, dal punto di vista aritmetico, vale 0 per FALSO e 
risulta diverso da 0 (non sempre -1) per VERO. 

Gli operatori logici effettuano i confronti bit a bit secondo le 
regole che seguono: 

Oper.logica Risult.aritm. Risult.relazion. 


1 

AND 

1 

1 

VERO 

1 

AND 

0 

0 

FALSO 

0 

AND 

1 

0 

FALSO 

0 

AND 

0 

0 

FALSO 

1 

OR 

1 

1 

VERO 

1 

OR 

0 

1 

VERO 

0 

OR 

1 

1 

VERO 

0 

OR 

0 

0 

FALSO 


NOT 

1 

0 

FALSO 


NOT 

0 

1 

VERO 


Tutti gli operatori logici lavorano su espressioni numeriche, di 
cui considerano la parte intera; per non avere risultati errati 
la parte intera deve essere compresa tra -32767 e +32767. 


A.4 COMANDI, ISTRUZIONI, FUNZIONI 

In questo paragrafo elenchiamo in ordine alfabetico i comandi, le 
istruzioni e le funzioni del BASIC. Per ognuno di essi vengono 
indicate le parole chiave, gli eventuali parametri, il tipo 
(comando, istruzione, funzione), il modo (immediato o programma) 
nel quale può' essere usato. 

Nella spiegazione del linguaggio usiamo le seguenti conven¬ 
zioni : 
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.Le PAROLE CHIAVE sono scritte in lettere maiuscole e non devono 
essere modificate (salvo le abbreviazioni riportate in Tabella 
B.2). 

.1 PARAMETRI ( o ARGOMENTI) sono scritti in lettere minuscole. 

.Le PARENTESI QUADRE delimitano argomenti opzionali. 

.Le PARENTESI AD ANGOLO (simboli minore e maggiore) indicano che 
e' necessario scegliere .uno degli argomenti presenti. 

La BARRA INCLINATA separa argomenti tra i quali si può’ sceglie¬ 
re, senza introdurne altri. 

I 3 PUNTINI indicano la possibilità' di ripetere piu' volte la 
sequenza. 

Le VIRGOLETTE, se presenti devono essere mantenute. 

Le PARENTESI ROTONDE se presenti devono essere mantenute. 

Le abbreviazioni seguenti: 
var variabile, 

esp espressione, 

numd numero drive, numero disco nell'unita', 

cond condizione, 

lfn numero logico di un file, 

nomef nome file, abbreviato anche in fn, 

unita' numero logico periferica, abbreviato anche in dn. 

Unita', numero logico periferica vale: 

0 per la tastiera, 

1 per il registratore, 

2 per la linea RS 232 

3 per il video. 

4,5 per la stampante 
6 per il plotter 
8/11 per il disco 


ABS Funzione numerica Immediato/Programma 

ABS(esp) fornisce il valore assoluto di esp, che 

deve essere un'espressione numerica. 

ASC Funzione numerica Immediato/Programma 

ASC(x$) fornisce il codice ASCII del primo carat-> 

tere della stringa contenuta nella variabile x$. L'argomento può' 
essere una costante stringa tra virgolette. Il risultato e' un 
numero compreso tra 0 e 255. 

ATN Funzione numerica Immediato/Programma 

ATN(esp) fornisce l'angolo, espresso in radianti, 

che ha come tangente l'argomento, che deve essere un'espressione 
numerica. Per ottenere il risultato in gradi si deve procedere 
cosi': ATN(esp)*180/ir. 
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AUTO Comando Immediato 

AUTO [incremento] attiva la numerazione automatica delle 

linee di programma. Se manca incremento la numerazione au¬ 
tomatica viene disattivata. L'incremento, che deve essere un 
numero intero, rappresenta la differenza tra due numeri di linea 
successivi. Il numero, da cui iniziare la numerazione automa¬ 
tica, dipende dal numero che viene attribuito alla linea di 
programma che si scrive subito dopo il comando AUTO. Quando si 
preme RETURN (cioè' viene accettata una linea di programma) com¬ 
pare automaticamente il numero della linea successiva. 

AUTO 5 predispone l'incremento di 5 tra i numeri di linea. 

AUTO annulla la predisposizione 

Per fermare la numerazione basta rispondere con solo RETURN al 
numero di lìnea che compare, o con SHIFT->RETURN, se non si vuole 
cancellare la linea corrispondente. 


BACKUP Comando Immediato/Programma 
BACKUP Dnumdl TO Dnumd2 [,0N Uunita'] 

duplica un dischetto su un secondo dischetto; può’ essere 
usato solo con un sistema collegato a una doppia unita' disco, e 
non 2 unita' singole. Il comando formatta il dischetto destina¬ 
zione, che perde il suo precedente contenuto. Si ottiene una 
copia integrale del dischetto montato su numdl (disco sorgente) 
nel dischetto montato su numd2 (disco destinazione). 


BOX Istruzione Immediato/Programma 

BOX [colore],x1,y1[,x2,y2][,angolo][,pit] disegna un ret¬ 

tangolo sul video, con le seguenti caratteristiche: 
colore 0 o 1, default 1 (col. inchiostro) anche 2 e 3 in 

modo grafico multicolore 
x1,y1 cordinate di un angolo 

x2,y2 coordinate dell'angolo opposto 

angolo rotazione in gradi (senso orario), default 0 

pit pittura: 0 per OFF, 1 per ON (rettangolo colo¬ 
rato in colore); default 0 E' neces^ 

sario porre delle virgole per segnalare gli argomenti intermedi 
omessi. Se e' presente solo una coppia di coordinate, l'angolo 
opposto e' la posizione del cursore grafico (pennino). Nel caso 
di una sola coppia di coordinate, dopo l'esecuzione dell'istru¬ 
zione il cursore grafico non viene spostato dalla posizione 
precedente. Nel caso, invece, della presenza delle 2 coppie di 
coordinate il cursore grafico, dopo l'esecuzione dell'istruzione 
si trova nella posizione del secondo angolo specificato. L'istru-’ 
zione da' risultati visibili solo se il calcolatore e' in uno dei 
modi grafici disponibili. Le coordinate possono essere influen¬ 
zate dalla precedente esecuzione dell'istruzione SCALE. 
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CHAR Istruzione Immediato/Programma 

CHAR[colore],x,y,"stringa"[.modo] consente di scrivere 

una stringa in una determinata posizione del video, le cui 
coordinate sono x.y, intese come posizione carattere (x da 0 a 
39, y da 0 a 24). Può' agire sia su un vìdeo predisposto per 
testo che per grafica. Solo che i caratteri dì controllo 
eventualmente presenti nella stringa, gli stessi consentiti con 
l'istruzione PRINT, non agiscono nel video grafico. Nel video 
grafico+testo se Y>19 il COMMODORE PLUS-4 non mostra i caratteri 
richiesti, che pero' appaiono se si passa a un modo totalmente 
grafico. 

colore 0 e 1, default 1 (col. inchiostro) anche 2 e 3 

in modo grafico multicolore 

x,y coordinate posizione iniziale 

stringa testo da scrivere 

modo 0 campo diretto, 1 campo inverso, validi solo 

per video grafico. 


CHR$ Funzione stringa Immediato/Programma 

CHR$(x) fornisce una stringa di un carattere, il cui codi¬ 

ce ASCII e' x, che deve essere compreso tra 0 e 255. Se l'argo¬ 
mento non e' intero, ne viene considerata solo la parte intera. 
La stringa ha lunghezza 1 e può' anche essere non stampabile. 


CIRCLE Istruzione Immediato/Programma 

CIRCLEtcolore],[xc,yc],xr[,yr][,[ia][,[fa][,[angolo][,inc]]]]] 

disegna un cerchio, un ellissi, un arco o 
un poligono in dipendenza dai parametri presenti, 
colore 0 e 1, default 1 (col. inchiostro) anche 2 e 3 

in modo grafico multicolore 

xc,yc coordinate del centro, default pos. del cur¬ 

sore grafico (pennino) 

xr lunghezza orizzontale del raggio 

yr lunghezza verticale del raggio, default xr, 

yr=xr per cerchi e poligoni regolari 

ia posizione partenza arco in gradi, default 0 

fa posizione finale arco in gradi, default 360 

angolo rotazione in gradi in senso orario, default 0 

ine ampiezza in gradi dell'angolo sotteso al lato 

del poligono regolare che approssima la circonferenza, default 2 
gradi (180 lati) 

L'istruzione agisce in modo visibile solo se e' stato selezio¬ 
nato un modo grafico. Se xr e yr sono diversi si ottengono ellis-i 
si. Per ottenere poligoni regolari si deve porre inc=(360/num.la¬ 
ti ). 
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xc,yc 


xc.yc 



Figura A.1 Parametri CIRCLE 


CLOSE Istruzione Immediato/Programma 

CLOSE lfn chiude un file, di numero logico lfn, aperto 

con OPEN, su una periferica. L'operazione CLOSE deve sempre esse- 
re eseguita a conclusione delle operazioni che riguardano file, 
pena il buon funzionamento del sistema e la perdita di dati. 

CLR Istruzione Immediato/Programma 

CLR azzera tutte le variabili presenti in 

memoria, resettando i puntatori alle zone delle variabili ed ese¬ 
gue una RESTORE, ma non azzera il video. Inoltre chiude tutti i 
file, ma non in modo corretto, pulisce l'area STACK, e, per 
quest'ultima ragione non deve essere usato all'interno di cicli o 
sottoprogrammi. L'istruzione CLR viene eseguita automaticamente 
dopo: NEW, RUN, o operazioni di EDIT (modifica anche apparente 
del programma presente in memoria). 

CMD Istruzione Immediato/Programma 

CMD lfn [,lista] trasferisce l'uscita video su una perife¬ 

rica, sulla quale e' stato preventivamente aperto con OPEN il fi¬ 
le logico lfn. Dopo CMD, PRINT e LIST agiscono sulla periferica 
selezionata, che può' essere la stampante, il nastro o il disco. 
Dopo l'esecuzione delle operazioni di OUTPUT, per chiudere 
correttamente la comunicazione e' necessario eseguire i coman¬ 
di: 

PRINT #lfn:CLOSE lfn. 

COLLECT Comando Immediato/Programma 

COLLECT [Dnumd] [,0N Uunita'] 

sistema un dischetto dove sono presenti 
file non correttamente chiusi e aggiorna la DIRECTORY e la BAM. 
Esegue una VALIDATE del dischetto. 

COLOR Istruzione Immediato/Programma 

COLOR sorgente, colore [.luminosità'] consente di asse- 


360 



gnare un colore, mediante il suo numero a una delle 5 possibili 
sorgenti. 

I numeri colore variano da 1 a 16, e sono quelli riportati sui 
relativi tasti numerici. Le possibili sorgenti sono numerate da 0 
a 4, come segue: 

Colore sfondo Sorgente 0 

Colore inchiostro Sorgente 1 

Modo multicolore 1 Sorgente 2 

Modo multicolore 2 Sorgente 3 

Colore bordo Sorgente 4 

La luminosità' può' variare da 0 (bassa luminosità') a 7 (alta 
luminosità); il default e' 7. Non ha senso modificare la lumino-^ 
sita' del colore nero. Il richiamo del numero di una sorgente 
rende disponibile il colore che e' stato assegnato ad essa con 
COLOR. Alla partenza o dopo un RESET del calcolatore la situa¬ 
zione dei colori e' la seguente: 

Sorg.O: col. 2, lum. 7 Sorg.1: col. 1, lum. 1 
» 2: » 7 " 3 " 3: " 12, lum. 5 

" 4 : " 15 " 6 

CONT Comando Immediato 

CONT fa ripartire un programma che si e’ arrestato per 

effetto delle istruzioni STOP o END, o per l'uso del tasto 
RUN/STOP. Se il programma si e' fermato per l'istruzione END non 
compare alcun messaggio. Negli altri due casi compare il messag¬ 
gio BREAK IN num-lihea. CONT può’ essere usato solo se, dopo 
l'arresto del programma, non si e' entrati in EDITOR. Per entra¬ 
re in EDITOR basta portare il cursore su una linea di programma e 
premere RETURN, anche senza fare alcuna modifica. E', invece, 
possibile usare comandi in immediato per visualizzare variabili, 
modificare il valore di alcune variabili, chiedere il LIST di 
parte del programma, e poi usare il comando CONT per prose¬ 
guire . 

COPY Comando Immediato/Programma 

COPY [Dnumdl,] "nomefl" TO [Dnumd2,] "nomef2" [,0N Uunita'] 

copia il file di nome "nomefl" dal 
dischetto montato su numdl nel file di nome "nomef2" sul dischet¬ 
to montato su numd2. I dischetti possono essere diversi ’se e' 
collegata una doppia unita' disco, non 2 unita' singole. Se 
numdl=numd2 il comando produce una copia del file sullo stesso 
dischetto; in tale caso nomefl deve essere diverso da nomef2. 

COPY DO,"FILEA" TO DI,"FILEB" 

copia il file "FILEA" dal dischetto mon¬ 
tato sul drive 0 nel file "FILEB" sul dischetto montato sul dri¬ 
ve 1. 

COPY DO TO DI copia tutti i file dal dischetto montato 

sul drive 0 al dischetto montato sul drive 1 
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COPY "PRIMO” TO "SECONDO" 

copia sullo stesso dischetto il file 
"PRIMO" nel file "SECONDO". 

COS Funzione numerica Immediato/Programma 

COS (esp) fornisce il coseno dell'argomento, che 

deve essere la misura di un angolo in radianti. Per trasformare i 
gradi in radianti basta moltiplicare per ir/180. 

DATA Istruzione Programma 

DATA lista consente di introdurre nel programma una 

serie di dati, che va a formare un file di dati interno al 

programma. La lista consiste in una serie di costanti di qualun¬ 
que tipo, separate da virgola. Nel programma possono comparire 
diverse istruzioni DATA e possono essere posizionate dove si vuo¬ 
le. Quello che conta e' l'ordine con il quale le DATA si susse¬ 
guono, infatti il file interno di dati viene formato secondo 

l'ordine delle frasi e l'ordine dei dati di ogni lista. Il 

programma al momento del RUN posiziona un PUNTATORE all'inizio 
del file di dati; esso viene spostato prima del dato successivo 
dopo la lettura di un dato con l'istruzione READ. Se si tenta di 
leggere piu' dati di quelli disponibili si ha segnalazione di 
errore. Esiste un'istruzione che consente di posizionare il 

puntatore all'inizio della lista dati di una particolare linea 
DATA; essa e' RESTORE. 

Le costanti numeriche possono essere scritte in formato intero, 
con decimali e in formato esponenziale; le stringhe devono compa¬ 
rire tra virgolette solo se contengono i seguenti caratteri: 

, : spazi SHIFT-lettera 

caratteri grafici caratteri di controllo 


DEC Funzione numerica Immediato/Programma 

DEC(stringa) fornisce il numero decimale corrispon¬ 

dente alla stringa, che deve essere una stringa, di al massimo 4 
caratteri, rappresentante un numero esadecimale e può' essere 
passata come una costante tra virgolette o come una variabile 
stringa.PRINT DECO'FF") stampa 255 

A$="5F":PRINT DEC(A$) stampa 95 


DEF FN Istruzione Programma 

DEF FNnome(var)=esp dove: 

DEF FN può' essere scritto anche DEFFN 

nome e' il nome che si vuole assegnare alla funzio¬ 

ne e deve essere di 2 caratteri, con il primo alfabetico 
var e' il nome di una variabile reale che serve 

come argomento di comodo per la definizione matematica 
esp e' un'espressione di calcolo che può' 

comprendere anche altre funzioni, ma solo di tipo reale 
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La funzione deve essere definita nel programma prima di richia¬ 
marla. Dopo la definizione essa si comporta come le funzioni del 
BASIC. Per richiamarla si deve citare il nome: FNnome(x), dove x 
e' l'argomento vero per il quale si vuole eseguire il calcolo, e 
può' essere una variabile numerica reale o una costante. 


DELETE 

DELETE [numi] 
la linea numi 
DELETE 800 
DELETE 50-90 
DELETE -100 
DELETE 5000- 
del programma 


Comando Immediato 

[-num2] cancella le linee di programma BASIC dal- 
alla linea num2. 

cancella la linea 800 
cancella dalla linea 50 alla linea 80 
cancella dall'inizio fino alla linea 100 
cancella dalla linea 5000 fino alla fine 


DIM Istruzione Immediato/Programma 

DIM var(ind) [ ,var ( ind)... ] dove var e' uno dei nomi 

consentiti per le variabili e tra parentesi sono indicati i vaio-' 
ri massimi di ogni indice, separati da virgole. Gli indici pos¬ 
sono essere costanti o variabili numeriche, delle quali viene 
considerata la parte intera. 

Deve essere usata DIM per definire variabili con indice per le 
quali almeno un indice superi 10. Gli indici partono dal valore 
0, quindi l'indice 10 corrisponde a 11 elementi. Fino a 11 
elementi il sistema fa una definizione implicita della variabile 
al primo richiamo. In un programma non e' consentito dimen¬ 
sionare due volte la stessa variabile. Teoricamente il numero 
massimo di dimensioni può' essere 255 e il limite per ogni indi¬ 
ce e' 32767; bisogna ovviamente scegliere valori che siano compa¬ 
tibili con la memoria disponibile e con la lunghezza della linea 
di programma. 


DIRECTORY Comando Immediato/Programma 

DIRECTORY [Dnumd] [.Uunita'] [,"nomef"] mostra la 

directory del dischetto montato sull'unita' collegata, senza 
distruggere il precedente contenuto della memoria. Può' essere 
usato CTRL-S per fermare lo scrolling, che riprende alla pres¬ 
sione di un qualunque tasto. Per rallentare la visualizzazione si 
può' premere il tasto CBM LOGO. 

Per ottenere la copia su carta della DIRECTORY, se e' collegata 
una stampante, si deve procedere cosi: 

L0AD"$0" .S^PEN 1 ), 4 :CMD4 :LIST 
PRINT#4:CLOSE4 

ma questa operazione distrugge il precedente contenuto della 
memoria. 

DIRECTORY lista la directory dell'unico dischetto collegato 
DIRECTORY DI ,U9,"ANAGRAFICO" 

lista la linea relativa al file di nome ANAGRAFICO 
della directory del dischetto montato sul drive 1 dell'unita' 9. 
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DLOAD Comando Immediato/Programma 

DLOAD "nomef" [,Dnumd][,Uunita'] carica da disco il 

programma di nome "nomef". Può' essere specificato il numero del 
drive, numd, necessario per unita' doppie; il numero dell'u¬ 
nita', che e' necessario nel caso di collegamenti multipli. 

Invece del nome del programma, passato come costante stringa, 
può' essere usata una variabile stringa inclusa tra parentesi: 
N$="ANAGRAFICO":DLOAD(N$) 

DLOAD"CONTABILITA'" 

Se DLOAD e' usato da programma, dopo il caricamento 11 nuovo 
programma parte automaticamente, come per effetto di un GOTO al¬ 
la prima linea. Devi fare attenzione perche' non viene riposi-* 
zionato il puntatore all'inizio delle variabili (byte 45 e 46). 
Per poter lavorare correttamente con programmi concatenati, ogni 
programma, prima di caricare il successivo, deve eseguire un CLR 
e scrivere in 45 e 46 i valori adatti. 

Tali valori si rilevano caricando per prova il programma da 
concatenare e leggendo con la funzione PEEK il contenuto dei byte 
45 e 46. 

Un altro modo e' quello di scrivere come prima linea del 
programma richiamato: 

0 POKE45,PEEK(157):POKE46,PEEK(158):CLR 

che sistema il puntatore all'inizio delle variabili. 

DO(LOOP) WHILE(UNTIL EXIT) Istruzione Immediato/Programma 
DO [UNTIL cond/WHILE cond] Istruzioni[EXIT] 

LOOP [UNTIL cond/WHILE cond] esegue le istruzioni 

comprese tra DO e LOOP, fino a quando sono soddisfatte le condi¬ 
zioni . 

Se mancano UNTIL e WHILE, sia dopo DO che dopo LOOP, le istru¬ 
zioni vengono eseguite indefinitamente. Se viene trovato EXIT, il 
ciclo viene interrotto e l'esecuzione prosegue dall'istruzione 
successiva a LOOP. 

La condizione cond e' un'espressione relazionale o una variabile 
booleana; la parola chiave UNTIL significa "fino a quando la 
condizione diventa VERA, cioè' mentre e' FALSA", la parola chia¬ 
ve WHILE significa "fino a quando la condizione rimane VERA, ter¬ 
mina appena diventa FALSA". Nella Figura A.2 sono riportati gli 
schemi logici.Il fatto di poter porre la condizione da analiz¬ 
zare dopo DO o dopo LOOP, da' una grande liberta' nell'uso 
dell'istruzione. Ponendo la condizione subito dopo DO, il ciclo 
può' non essere mai eseguito, mentre ponendola dopo LOOP, si ha 
almeno una esecuzione. 

10 DO UNTIL X=5 OR X=7 esegue le istruzioni 
15 INPUT "X=";X da 15 a 25 fino alla 

20 ... lettura di 5 o 7 

25 ... 

30 LOOP 
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DO WHILE A$="":GET A$:LOOP legge un carattere da tastiera fi¬ 
no a quando viene premuto un tasto, cioè' prosegue dopo la pres¬ 
sione di un tasto. 

DRAW Istruzione Immediato/Programma 

DRAW[colore][,x1,y1][,T0 x2,y2][...] consente di disegnare 

in modo visibile, se si e' in modo grafico, punti, linee e figu¬ 
re. 

colore 0 e 1, default 1, (col. inchiostro) anche 2 e 3 

in modo grafico multicolore 

xl.yl coordinate del primo punto, se mancano il 

default e' la posizione attuale del cursore grafico (PENNINO) 
x2,y2 coordinate del secondo punto (finale) se man¬ 

ca TO x2,y2, viene disegnato solo un punto 

Le coppie di punti iniziali e finali possono essere ripetute, 
ottenendo un disegno anche complicato. L'istruzione produce un 
effetto visibile solo se usata in modo grafico. 

DSAVE Comando Immediato/Programma 

DSAVE "nomef"[,Dnumd][.Uunita'] memorizza il programma 

presente in memoria sul disco, assegnandogli il nome "nomef". Per 
unita' doppie o collegamenti multipli devono essere specificati 
il numero del drive e quello dell'unita'. Può' essere usata una 
variabile stringa al posto di "nomef", ma va inclusa tra paren¬ 
tesi . 

DSAVE"PROVE" 1 memorizza il programma con il nome PROVE 

N$="ORDIN":DSAVE(N$) memorizza il programma con il nome ORDIN. 

END Istruzione Programma 

END interrompe l'esecuzione del programma senza eviden¬ 

ziare messaggi. Si può' proseguire scrivendo, se e’ possibile, 
CONT e premendo RETURN. 

EXP Funzione numerica Immediato/Programma 

EXP(esp) fornisce il valore della costante e (base dei 

logaritmi naturali, numero irrazionale di cui e' memorizzata 
un'approssimazione = 2.71828183) elevata al numero che risulta 
dal calcolo di esp. Se tale numero supera 88.0296919 si ha il 
messaggio di overflow. 

FOR...TO...STEP Istruzione Immediato/Programma 

FOR var=val-i TO val-f [STEP ine] dove: 

var variabile numerica reale, detta variabile di 

controllo del ciclo 

val-ii valore iniziale per var 

val-f valore finale per var 

ine incremento per var, può' essere positivo o nega¬ 

tivo; default 1 
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val-i, val-.f e ine possono essere anche espressioni numeriche 
semplici e non avere valore intero. Se val-f e' minore di val-i, 
ine deve essere negativo. 

L'istruzione serve per INIZIARE L'ESECUZIONE di un CICLO; essa 
non può' essere usata da sola; al termine del ciclo deve compa¬ 
rire l'istruzione NEXT var (può' essere scritta anche senza var, 
e allora si riferisce all'ultimo FOR eseguito). 

Il ciclo e' composto da tutte le istruzioni comprese tra FOR e 
NEXT. 

Vediamo cosa avviene: 

.1) con l'esecuzione di FOR viene inizializzato il contatore var 
con il valore val-i e viene memorizzato il valore finale val->f e 
1'incremento; 

.2) vengono eseguite tutte le istruzioni comprese tra FOR e NEXT; 
•3) al NEXT viene sommato al contatore var l'incremento ine, e il 
valore viene confrontato con val-f; 

.4) se il valore raggiunto non supera val-f (o non risulta mino-' 
re per incremento negativo), il programma torna alla istruzione 
successiva al FOR (esegue un altro ciclo); 

.5) se il valore raggiunto supera val-f (o e' inferiore) il 
programma prosegue con l'istruzione dopo il NEXT, cioè' esce dal 
ciclo. 

All'uscita dal ciclo il valore di var e' superiore o inferiore a 
val-f. Inoltre il ciclo viene percorso almeno una volta, dato che 
la condizione viene analizzata al NEXT. 

Se all'interno del ciclo sono presenti istruzioni condizionali 
(come IF) che fanno uscire dal ciclo, la variabile var deve esse¬ 
re forzata al valore finale e deve essere eseguito il NEXT, 
altrimenti il ciclo FOR resta pendente, non concluso, e questo 
può' dar luogo a errori. 



FOR K-K1TO K2 
STEP K3 (K3X>) 



DO WHILE CONO 
ISTR LOOP 
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DO ISTR LOOP 
UNTIL COND 


Figura A'.2 Schemi logici FOR e DO...LOOP 


E 1 possibile avere cicli FOR uno interno all'altro, si dice 
nidificati, ma non si possono avere intrecci, ogni ciclo deve 
essere completamente interno al precedente. Con il COMMODORE 16 
si possono nidificare fino a 10 FOR. 

FRE Funzione di servizio Immediato/Programma 

FRE(x) fornisce il numero dei byte liberi in memoria, x 

può' essere qualunque, si tratta di un argomento di comodo. 

GET Istruzione Programma 

GET lista variabili legge un carattere per volta dalla tastie^ 
ra. 

Se non e' stato premuto alcun tasto legge la stringa nulla. E' 
bene che lista contenga nomi di variabili stringa (per evitare 
errori), separate da virgole se piu' di una. 

GET accetta un tasto senza che debba essere seguito dalla pres¬ 
sione di RETURN. 

L'istruzione può’ essere usata per creare cicli di attesa fino 
alla pressione di un tasto qualunque o di un tasto particolare: 
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10 GETA$:IFA$=""THEN10 prosegue se si preme un tasto 

10 GETA$:IFA$=<>"P"THEN10 prosegue se si preme P. 


GETKEY Istruzione Programma 

GETKEY lista variabili e' simile a GET solo che prosegue so¬ 
lo se si preme un tasto. 

10 GETKEYA$ prosegue se si preme un tasto 

10 GETKEYA$:IFA$<>"P"THEN10 prosegue se si preme P 

Non devi premere uno dei tasti funzione in risposta a GETKEY, 

infatti da' luogo a segnalazione di errore. 

GET# Istruzione Programma 

GET# lfn,lista variabili dove: 

lfn e' il numero logico di un file precedentemente aperto su 
una periferica 

lista e' una lista di variabili separate da virgole 
L'istruzione legge un carattere per variabile. 

Con GET# si possono leggere tutti i caratteri, anche quelli di 
controllo. 


GOSUB Istruzione Immediato/Programma 

GOSUB num-linea dove num-linea e' il nunero di una linea 

dove inizia un sottoprogramma. 

Il controllo viene trasferito alla linea indicata, ma viene 
memorizzato il numero di linea e la posizione nella linea del¬ 
l'istruzione GOSUB. Quando nel sottoprogramma viene incontrata 
l'istruzione RETURN, il controllo torna all’istruzione succes¬ 
siva a GOSUB. 

All'interno di un sottoprogramma possono comparire altre istru¬ 
zioni GOSUB; si dice che si ha il concatenamento dei sottopro¬ 
grammi. Si possono concatenare fino a 39 sottoprogrammi. Nella 
Figura A.3 e' riportato uno schema logico dell'istruzione. 


GOTO Istruzione Immediato/Programma 

GOTO num-linea oppure GO TO num-linea fa proseguire il 

programma da num-linea, che deve esistere nel programma, pena 
segnalazione di errore. 

GRAPHIC Istruzione Immediato/Programma 

GRAPHIC modo [,flag] rende attivo per il video il modo grafico 

selezionato. 

Flag può' essere 1 per pulire il video, 0 per lasciarlo invaria¬ 
to. 

I modi grafici sono: 

0 testo 

1 grafica ad alta risoluzione 

2 grafica ad alta risoluzione e testo 
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sulle 5 linee in basso 

3 grafica multicolore 

H grafica multicolore e testo sulle 5 

linee in basso 

Quando si seleziona un modo da 1 a *1, il sistema assegna 12K byte 
alla grafica, (vedi Paragrafo 2.8). Anche se dopo essere passati 
da un modo grafico si esegue GRAPHIC 0, i 12K restano allocati, 
per renderli disponibili di nuovo si deve usare l'istruzione 
GRAPHIC CLR. 

GSHAPE Istruzione Immediato/Programma 

GSHAPE var-stringa [ , [x ,y ][ .modo]] dove: 
var-stringa contiene l'immagine da mostrare 

x,y sono le coordinate dell'angolo in alto a sini¬ 

stra da dove iniziare, default la posizione del cursore 
modo modo di visualizzazione: 

0, senza modifiche (default) 

1, campo inverso 

2, con OR della zona 

3, con AND della zona 

■H, con XOR della zona. 

HEADER Comando Immediato/Programma 

HEADER "nome-disco" .Dnurad [,Iid][,0N Uunita'] e' l'ope¬ 

razione di formattazione dei dischetti. Essa deve essere esegui¬ 
ta sui dischetti nuovi o su quelli che si vogliono rendere usa¬ 
bili ex-novo. Con HEADER il dischetto oltre a ricevere un nome e 
una identificazione, viene suddiviso in tracce e settori e ven¬ 
gono registrati i relativi indirizzi, e inoltre viene pre- 
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disposta una traccia per contenere l'indice dei contenuti 
(directory) e la tabella BAM di gestione dell'occupazione dei 
settori (blocchi). I parametri sono: 
nome-disco nome di al massimo 16 caratteri 

numd numero del drive su cui e' montato il dischet- 

to 

id identificazione del dischetto, di 2 caratteri; 

e' necessaria per dischetti nuovi 
unita' numero dell'unita' 

Se per un disco già' in uso si omette Iid, si ottiene di cancel- 
lare il disco, ma vengono mantenuti gli indirizzi di traccia e 
settore e quindi l'operazione risulta piu' veloce. 

HEX$ Funzione stringa Immediato/Programma 

HEX$(n) fornisce una stringa di 4 caratteri che e' la 

rappresentazione esadecimale del numero n, che deve essere 
compreso tra 0 e 65535. 

IF...THEN...ELSE Istruzione Programma 

IF cond THEN Istruzionil [ :ELSE Istruzioni] dove cond e' 

una condizione. 

Viene esaminata cond; se essa e' verificata, cioè' la condi¬ 
zione risulta VERA viene eseguito il gruppo di istruzioni che 
segue THEN (Istruzionil) e al loro termine il programma prosegue 
dalla linea seguente. Se, invece la condizione non e' verifi¬ 
cata, cioè' risulta FALSA si possono avere due casi: se ELSE e' 
presente vengono eseguite le istruzioni dopo ELSE (Istruzioni) e 
poi il programma prosegue dalla linea seguente, se ELSE non e' 
presente il programma prosegue dalla linea seguente. 

La parte ELSE, se presente deve trovarsi sulla stessa linea di 
IF...THEN. Se i gruppi di istruzioni dopo THEN e/o dopo ELSE 
contengono delle istruzioni tipo GOTO, il programma non va alla 
linea successiva a IF. 

INPUT Istruzione Programma 

INPUT ["messaggio";Jlista variabili e' l'istruzione per 

leggere dati dalla tastiera. Le variabili di lista devono essere 
separate tra loro da virgole. Il sistema fa apparire un punto 
interrogativo di richiesta dati; si deve rispondere con tanti da-’ 
ti quante sono le variabili, separandoli tra loro con virgole. Se 
il numero di dati e' inferiore al numero di variabili della lista 
il sistema richiede ancora dati con un doppio punto interro-i 
gativo. Se si risponde con dati di tipo che non concorda con il 
tipo delle variabili si ha un messaggio di errore e i dati ven¬ 
gono chiesti di nuovo. L'immissione dei dati termina quando si 
preme RETURN. Se si risponde solo con RETURN, le variabili 
mantengono il loro precedente contenuto. Il messaggio tra virgo¬ 
lette, se presente, viene evidenziato prima del punto interro¬ 
gativo di richiesta dati. 
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t 

IF CONO THEN ISTRUZIONI 1 
ELSE ISTRUZIONI 2 



t 

IF COND THEN 
ISTRUZIONI 1 

Figura A. 1 ) Schema logico IF. . .THEN. . .ELSE 

Se si risponde con piu' dati di quelli richiesti, quelli ecce-> 
denti vengono ignorati e il fatto viene segnalato. 

INPUT# Istruzione Programma 

INPUT# lfn, lista variabili dove lfn e' il nume- 
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ro logico di un file precedentemente aperto su una periferica. 
L'istruzione e' simile alla precedente, solo che non può' essere 
usato il messaggio, che d'altronde, non avrebbe senso. 
L'istruzione preleva dati dal file considerando terminata una 
variabile quando incontra un separatore valido, che può' essere 
la virgola (CHR$(44)) o il RETURN (CHR$(13)h Caratteri come "," 
e all'interno di un dato stringa la fanno considerare termi¬ 
nata; per questo motivo le stringhe contenti questi caratteri 
devono essere scritte forzando all'inizio e alla fine le virgo-> 
lette con CHR$(34), cosi': 

PRINT#lfn,CHR$(3*0 ;"stringa";CHR$(34) 

I dati separati tra loro da virgole, invece che da RETURN, devo- 
no essere letti da una sola istruzione INPUT#, che può' agire so-* 
lo per i dati contenuti tra due RETURN, e questi non devono supe¬ 
rare 88 caratteri; in caso contrario si perdono dati. 

INSTR Funzione numerica Immediato/Programma 

INSTR(stringa1,stringa2[,pos-inizio]) ricerca in 

stringai la stringa2, partendo dall'inizio o da pos-inizlo, se 
presente. Se non trova stringa2 da' risultato 0, se la trova da' 
la posizione di inizio di stringa2. Le due stringhe possono esse¬ 
re costanti o variabili. 

INT Funzione numerica Immediato/Programma 

INT(x) fornisce la parte intera di x troncando i deci¬ 

mali. Per arrotondare si deve operare cosi': 

INT(x+0.5). 

JOY Funzione numerica Immediato/Programma 

JOY(n) fornisce la situazione di uno dei due joystick. 

Se n=1, del joystick 1, se n=2 del joystick 2. Il numero fornito 
risulta >128 se e' stato premuto il bottone del fuoco e da' la 
direzione dello spostamento secondo lo schema seguente: 

alto 

1 

8 2 

sinistra 703 destra 

6 4 

5 

basso 

alto+fuoo=1 29 destra*-fuoco=1 31 

numeri di posizione: 0, 1, 2, 3, 4, 5, 6, 7, 8. 

KEY Comando Immediato/Programma 

KEY [num-k,stringa] senza parametri fornisce l'elenco delle 

funzioni assegnate agli 8 tasti funzione (HELP corridsponde a 
F8). Con i parametri serve per assegnare una funzione a un tasto: 
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num-^k deve variare da 1 a 8 e individua il tasto, stringa deve 
essere la serie di funzioni da assegnare al tasto sotto forma di 
stringa. Esempi: 

KEY1 ,"OPEN4,4:CMD4:LIST"+CHR$(13) 

KEY2,"PRINT#4:CL0SE4"+CHR$(13) 

fanno si* che per listare un programma su stampante basta pre¬ 
mere FI, e alla fine della stampa F2. Le assegnazioni iniziali 
sono: 

KEY1,"SYS 1525: 3 PLUS 1" 

KEY2,"DLOAD"+CHR$(34) 

KEY3."DIRECTORY"+CHR$(13) 

KEY4,"SCNCLR"+CHR$(13) 

KEY5,"DSAVE"+CHR$(34) 

KEY6,"RUN"+CHR$(13) 

KEY7,"LIST"+CHR$(13) 

KEY8,"HELP"+CHR$(13)• 


LEFT$ Funzione stringa Immediato/Programma 

LEFT$(stringa, num) dove: 

stringa cost. o una var. stringa 

num numero intero tra 0 e 255 

fornisce i primi num caratteri della stringa. 

Se num supera la lunghezza della stringa la fornisce tutta. 

LEN Funzione numerica Immediato/Programma 

LEN(stringa) dove stringa può' essere una costante o 

una variabile. Fornisce il numero dei caratteri della stringa, 0 
per la stringa nulla. 

LET Istruzione Immediato/Programma 

[LET] var=esp e' l'istruzione di assegnazione del 

BASIC. La parola chiave LET può' mancare. 

Il nome di var e il tipo dell'espressione devono concordare. 

LIST Comando Immediato/Programma 

LIST [numlineal][-[numlinea2]] lista sul video una 

parte o tutto il programma presente in memoria. La pressione del 
tasto CBM LOGO rallenta lo scrolling; per arrestare la lista 

basta premere CTRL^S, poi la pressione di qualunque tasto fa 
continuare. 

LIST senza parametri lista tutto il programma 

LIST numlinea una sola linea 

LIST numlineal- da numlineal in avanti 

LIST -?numlinea2 fino a numlinea2 

LIST numlinea1^numlinea2 

il pezzo compreso tra i due numeri di linea. 
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LOAD Comando Immediato/Programma 

LOAD ["nomef"[.unita'][,flag]] carica un programma da 

nastro o da disco. Dove: 

nomef nome del programma e può' anche essere una 

variabile stringa 

unita' numero logico dell'unita': 1 per la cassetta e 8 

per il disco 

flag flag di rilocazione, vale 0 per rilocare 

(default), 1 per non rilocare (si veda comando SAVE) 

LOAD carica il primo programma presente su nastro 

LOAD "GIOCO",1 carica da cassetta il programma GIOCO 

LOAD "PRIMO",8 carica da disco il programma PRIMO 

Quando si usa da programma questo comando, dopo il caricamento il 

nuovo programma parte automaticamente, senza eseguire il CLR, 

quindi corrisponde a LOAD + GOTO prima linea. 

Vedi il comando DLOAD per il problema della sistemazione dei byte 
45 e 46. 

LOCATE Istruzione Immediato/Programma 

LOCATE x,y consente di posizionare il cursore gra¬ 

fico (pennino) in un punto di coordinate x,y; se ne può' utiliz¬ 
zare l'effetto solo con video in modo grafico. 


MID$ Funzione stringa Immediato/Programma 

MID$(a$,n1,n2) può' essere usata in due modi: 

.1) per estrarre una parte di una stringa, se si trova a destra 
del carattere "=" in un'istruzione di assegnazione o in una lista 
di output, 

.2) per modificare una parte di una stringa, se si trova a 
sinistra del carattere "=" in un'istruzione di assegnazione 
(pseudo variabile). 

I parametri sono: 

a$ stringa su cui operare, nel caso 1) può' anche 

essere una espressione stringa o una costante 

ni cost. o var. numerica la cui parte intera da' la 

posizione da cui iniziare a operare 

n2 cost. o var. numerica la cui parte intera da' il 

numero dei caratteri su cui operare 

II parametro n2 può' essere omesso; allora nel caso 1) la funzio¬ 
ne ritorna la parte destra della stringa a partire dal carattere 
di posizione ni. Nel caso 2) la presenza di n2 risulta inutile in 
quanto vengono sempre trattati i caratteri corrispondenti alla 
stringa sostitutiva. 

100 A$="BELLA GIORNATA":PRINT A$ 

105 MID$(A$,1)="BRUTTA":PRINT A$ 

sostituisce i caratteri da 1 a 6 della stringa A$ con "BRUTTA". 
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100 A$="OGGI PIOVE" 

105 PRINT MID$(A$,6,5) 

estrae "PIOVE" da A$ e lo stampa. 


100 DATA BELLISSIMO,BRUTTISSIMO,INDIFFERENTI 
105 FOR K=1 TO 3 

110 READ A$:PRINT MID$(A$,1,5);" 

115 NEXT K:PRINT 
da' come risultato: 

BELLI BRUTT INDIF 

Nel caso di riassegnazione di parte di una stringa non deve 
venire modificata la lunghezza originale. 

MONITOR Istruzione Immediato/Programma 

MONITOR consente di uscire dal BASIC e rende 

disponibile il programma MONITOR. Il MONITOR permette di lavo¬ 
rare in linguaggio macchina, cioè' e’ possibile accedere alla 
memoria, disassemblare parti dell'INTERPRETE BASIC e del SISTEMA 
OPERATIVO, scrivere programmi in assembler, disassemblare pro¬ 
grammi in linguaggio macchina, trasferire parti di memoria. Per 
tornare al BASIC basta scrivere X e premere RETURN. 

NEW Comando Immediato/Programma 

NEW • serve per cancellare il programma BASIC 

presente in memoria e tutte le sue variabili. Di norma si usa 
prima di cominciare a scrivere un nuovo programma. Se viene usato 
da programma, questo viene interrotto e cancellato. 

NEXT Istruzione Immediato/Programma 

NEXT [var.var] deve essere usato dopo F0R...T0, si veda 

FOR. 

Si può' scrivere senza var, con solo una var, o con piu' var 
separate da virgole. 

0N...G0T0 (G0SUB) Istruzione Programma 

ON esp <G0T0/G0SUB> n1[,n2,...] dove: 

esp e' un espressione numerica che deve dare un 

risultato non negativo, di cui viene considerata solo la parte 
intera 

ni sono i numeri di linea a cui trasferire il 

controllo 

Se esp vale 1 il controllo e' trasferito a ni, se vale 2 a n2, e 
cosi' via. Se il valore di esp supera il numero dei numeri di 
linea presenti oppure e' 0, il programma prosegue dalla linea 
seguente ON. Se, invece, il valore di esp e' negativo si ha un 
messaggio di errore. 
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OPEN Istruzione Immediato/Programma 

OPEN lfn [.unita'[,sa[,"nomef.tipo,modo"]]] dove: 

lfn numero logico file, da 1 a 255 

unita' numero della periferica: 

0 per tastiera 1 per cassetta 

3 per video 4 per stampante 

8 per disco 

sa indirizzo secondario che ha significato diverso 

a seconda delle periferiche; per la cassetta: 0 per leggere, 1 
per scrivere, 2 per scrivere con segnalazione di fine^nastro, per 
il disco rappresenta il numero del canale, da 2 a 14, 15 per i 
comandi, per la stampante rappresenta il modo di stampa 
nomef nome del file di al massimo 16 caratteri 

tipo solo per i dischi: PRG, SEQ, REL, USR 

modo solo per i dischi: READ o WRITE. 

OPEN 1,3 apre il video come Input o come Output 

OPEN 2,0 apre la tastiera come Input 

OPEN 1,1,0,"PIPPO" apre la cassetta per leggere il file PIPPO 

0PEN15,8,15 apre su disco il canale comandi 

0PEN2,8,2,"ANAGRAFICO,SEQ,WRITE" crea un file 

sequenziale su disco. 

PAINT Istruzione Immediato/Programma 

PAINT [colore] [,[x,y] [.modo]] dove: 

colore 0 o 1, default 1 (col. inchiostro) anche 2 e 3 

in modo grafico multicolore 

x,y coordinate punto iniziale, default posizione 

cursore grafico (pennino) 

modo 0, bordo del colore=1 

1 , bordo di colore diverso dallo sfondo 
Serve per colorare parti di video delimitate da un bordo; il 
riempimento con il colore si arresta quando viene incontrato il 
bordo. Se il punto di partenza e' già' del colore selezionato, 
non si ha pittura. Dopo l'esecuzione dell'istruzione il cursore 
grafico ritorna nel punto da cui e' partito per colorare. Pro-’ 
duce effetti immediatamente visibili solo se usato in uno dei mo¬ 
di grafici. Le coordinate possono essere influenzate dalla 
precedente esecuzione di SCALE. 

PEEK Funzione numerica Immediato/Programma 

PEEK(n) fornisce il contenuto del byte di indirizzo n, che 

può' essere una costante o una variabile numerica, di cui inte¬ 
ressa la parte intera, che deve essere compresa tra 0 e 65535. 

POKE Istruzione Immediato/Programma 

POKE n,x scrive nel byte di indirizzo n il numero 

x. I limiti per n sono da 0 a 65535 e per x da 0 a 255. Sia n che 
x possono essere costanti o variabili numeriche di cui interessa 
la parte intera. 
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POS Funzione numerica Immediato/Programma 

POS(x) dove x e' un argomento qualunque. Forni-' 

sce la posizione di colonna del cursore di testo, da 0 a 39. 

PRINT Istruzione Immediato/Programma 

PRINT [lista] dove lista e* una sequenza di elementi dì 

stampa, che possono essere: costanti, variabili, funzioni, carat-» 
teri di controllo, separati tra loro da caratteri separatori 
validi. I caratteri separatori possono essere: 

. Virgola, che ha l'effetto di mandare dopo la stampa alla prosi 
sima zona di stampa. Sul video le zone di stampa sono *1 per 
linea, ognuna di 10 caratteri. 

. Punto e virgola, che non aggiunge spazi dopo la stampa. 

. Spazio, che viene ignorato e non provoca aggiunta dì spazi, ma 
può' generare ambiguità* di interpretazione; per esempio: A B 
viene interpretato come una variabile, la AB e non come due 
variabili. 

Se la lista di stampa termina senza punteggiatura (, o ;) si 
ottiene di andare a nuova linea dopo la stampa, cioè' l'assenza 
di punteggiatura corrisponde alla sequenza: CHR$(13); (cioè' 
RETURN, ma seguito dal punto e virgola). 

Ogni elemento viene stampato con il suo formato, che per le 
stringhe e' il loro numero di caratteri, mentre per i numeri vie¬ 
ne aggiunto uno spazio prima per il segno + o il segno meno, e 
uno spazio dopo. Una PRINT senza lista dati manda a nuova linea. 
Questa istruzione e’ di norma diretta al video; l'uso precedente 
di OPEN e di CMD può' trasferire l’uscita a un'altra periferica; 
non viene in generale rispettata in questo caso la dimensione 
delle zone di stampa. 

Le funzioni che influenzano il posizionamento per la stampa sono 
TAB, SPC. 

PRINT# Istruzione Immediato/Programma 

PRINT# lfn,lista dove lfn e' il numero logico di un file 

precedentemente aperto e lista e' una lista di elementi da scri¬ 
vere. Per ogni periferica si possono avere differenze di compor¬ 
tamento riguardo ai codici di controllo, alle funzioni di 
posizionamento e ai caratteri separatori. E' importante rilevare 
che quando l'uscita e' su supporti magnetici, come nastri e 
dischi, tra gli elementi della lista devono comparire dei carat-j 
teri separatori, passati come stringa, in modo che vengano 
registrati e consentano di riconoscere, in fase di lettura, la 
fine delle variabili. I dati sono inviati in uscita carattere per 
carattere, l'incontro di un carattere separatore valido fa rite¬ 
nere terminato il dato in fase di lettura. I caratteri separa¬ 
tori riconosciuti sono la virgola (CHR$( ^*< ) ) e il RETURN 
(CHR$(13)) per tutti i tipi di dati; pero', se all'interno di una 
stringa si trova il carattere due punti o virgola, la stringa e' 
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considerata terminata, per evitare ciò', stringhe di questa tipo 
devono essere registrate con il primo e l'ultimo carattere for¬ 
zati a virgolette, con CHR$(34). 

USING Istruzione Immediato/Programma 

USING formato;lista viene usata in congiunzione con PRINT o 
PRINT# (PRINT USING...) e serve per modificare il formato dei da-> 
ti in uscita. 

La lista e' la solita lista di dati da stampare: il formato e' 
una stringa di caratteri di controllo che svolgono specifiche 
azioni durante la stampa. 

Il formato viene utilizzato per i dati della lista, eventual-> 
mente usandolo ripetutamente. 

Segue l'elenco dei caratteri di controllo disponibili per i dati 
numerici: 

# predispone lo spazio per un carattere, se il dato eccede 
il numero di #, l'intero dato viene sostituito da tanti * quanti 
sono i #. 

+ -i possono essere posti nella prima o nell'ultima posizione 
di un campo. Il + fa stampare il segno + o il segno -. Il - fa 
stampare solo il -■ per i numeri negativi, per i positivi appare 
uno spazio. Se non si usa o il + o il -, il numero negativo vie¬ 
ne preceduto dal - occupando una delle posizioni previste per le 
cifre. 

. definisce la posizione del punto decimale; se non e' stato 
previsto il punto decimale, il numero viene arrotondato a inte¬ 
ro. 

, consente di far apparire una virgola nella stessa 
posizione del numero; si possono predisporre piu' virgole e 
almeno un carattere # deve precedere la prima virgola. Nella 
stampa vengono evidenziate solo le virgole che hanno una cifra a 
sinistra, le altre sono ignorate. Se il numero e' negativo viene 
stampato il segno meno. 

$ fa stampare il carattere $ dove indicato; se si vuole che 
il carattere $ si sposti e preceda la prima cifra significativa 
del numero, esso deve essere preceduto da un #. Se si usa anche + 
o -■, il segno precede il carattere $ in stampa. 

fanno si che il numero venga stampato in formato esponen¬ 
ziale. Se si usa anche # per definire il numero di caratteri, 
queste 4 frecce devono comparire dopo #. Per i numeri in formato 
esponenziale con caratteristica negativa si devono usare sempre 


I caratteri di controllo per i campi stringa sono: 

# il numero di # determina il numero di caratteri della 
stringa da evidenziare, con eventuale troncamento a destra. 

= serve per evidenziare una stringa al centro di un campo. 
Le dimensioni del campo sono date dal numero di # piu' 1 , il 
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carattere = può' comparire ovunque. 

> consente di evidenziare la stringa allineata a destra nel 
campo. I caratteri # definiscono le dimensioni del campo, con 
eventuale troncamento a sinistra. 

PUDEF Istruzione Immediato/Programma 

PUDEF "stringa" consente di modificare 4 caratteri di 

controllo di USING; i seguenti: spazio, virgola, punto decimale e 
dollaro. Per rimpiazzare questi 4 caratteri con altri quattro si 
deve preparare una stringa che rechi nella prima posizione il 
carattere sostitutivo dello spazio, nella seconda quello della 
virgola, ecc. 

PUDEF " .,\" consente di stampare i numeri nell'a^ 

bituale modo italiano, con la virgola prima dei decimali, il pun¬ 
to a separare le migliaia e il carattere \ al posto del $. 

RCLR Funzione numerica Immediato/Programma 

RCLR(n) dove n e' il numero di una sorgente di 

colore, da 0 a 4. Fornisce il colore disponibile nella sorgente 
specificata. 

RDOT Funzione numerica Immediato/Programma 

RDOT(n) dove n vale 0 per coordinata x, 1 per 

coordinata y e 2 per sorgente colore. Fornisce informazioni sul¬ 
la posizione del cursore grafico. Ha senso usarlo se e' stato 
prima reso attivo un modo grafico. 

READ Istruzione Programma 

READ lista consente di leggere i dati memorizzati 

nel file interno al programma con le istruzioni DATA. La lista e' 
formata da nomi di variabili separate da virgole. E’ necessario 
che il tipo delle costanti concordi con il tipo delle variabili 
che vengono via via lette; altrimenti si ha segnalazione di erro^ 
re. Si ha segnalazione di errore anche se si tenta di leggere 
piu' dati di quelli disponibili. Per ogni dato letto il puntai 
tore interno nel file avanza di un dato. 

REM Istruzione Programma 

REM messaggio consente di introdurre commenti in un 

programma. Dopo REM il messaggio può' contenere qualunque carat¬ 
tere. Questa istruzione deve essere o l'unica o l'ultima di una 
linea di programma. 

RENAME Comando Immediato/Programma 

RENAME [Dnumd,] "nomev" TO "nomen" [.Uunita'] consente di 
cambiare nome a un file su disco; "nomev" viene sostituito con 
"nomen" nella DIRECTORY del dischetto. 
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RENUMBER Comando Immediato 

RENUMBER [numeron [,inc [.numerov]]] consente di rinume^ 

rare le linee di un programma partendo da numerov, che diventa 
numeron, e usando l'incremento ine. Se non si usano parametri la 
rinumerazione inizia con 10 e l'incremento e' 10. Vengono aggior¬ 
nati tutti i richiami a numeri di linea presenti nel programma. 

La struttura dell'istruzione consente rinumerazioni totali o 
parziali. 

RESTORE Istruzione Programma 

RESTORE [n] consente di riposizionare il puntatore 

interno ai dati memorizzati con le istruzioni DATA. Il riposizio¬ 
namento avviene alla prima linea DATA, se non compare n, alla 
linea n, se presente questo parametro. 

RÉSUMÉ Istruzione Programma 

RÉSUMÉ [n/NEXT] consente di ritornare al programma dopo 

una routine di errore. Se si usa senza parametri il ritorno e' 
all'istruzione che ha causato l'errore. Con il parametro può' 
essere alla linea n, oppure, con NEXT, all'istruzione successiva 
a quella che ha causato l'errore. 

RETURN Istruzione Programma 

RETURN deve essere presente alla fine logica 

(conclusione) di un sottoprogramma; quando viene eseguito, il 
controllo del programma ritorna alla istruzione seguente la 
GOSUB. Se si incontra RETURN, senza aver eseguito prima un GOSUB, 
si ha segnalazione di errore. 

RGR Funzione numerica Immediato/Programma 

RGR(x) dove x può' essere qualunque, fornisce il 

numero del modo grafico corrente. 

RIGHT$ Funzione stringa Immediato/Programma 

RIGHT$(a$,x) fornisce gli x caratteri piu' a destra 

della stringa a$. Il numero x può' variare tra 0 e 255; a$ può' 
essere una qualunque espressione stringa. 

RLUM Funzione numerica Immediato/Programma 

RLUM(n) dove ne' il numero di una sorgente di colore, 

fornisce il grado di luminosità' della medesima, come numero. 

RND Funzione numerica Immediato/Programma 

RND(x) fornisce uun numero pseudo-casuale 

compreso tra 0 e 1 , prelevandolo dalla sequenza generata dal 
calcolatore mediante un algoritmo pseudocasuale. La sequenza vie-: 
ne generata partendo da un numero iniziale chiamato "seme", che 
dipende dall'argomento: 


380 



x negativo, seme sempre allo stesso valore per lo stesso x; gli 
stessi numeri ogni volta che si usa il programma. 

x=0, seme prelevato da TI; dipende dal tempo trascorso dall'80-5 
censione del calcolatore. 

x positivo, la sequenza prosegue; i numeri dipendono dalla 
precedente inizializzazione. 

RUN Comando Immediato/Programma 

RUN [n] fa partire un programma, dall'inizio se 

manca n, dalla linea n se presente il parametro. Prima della 
partenza del programma viene eseguito un CLR. 

SAVE Comando Immediato/Programma 

SAVE["nomef"][.unita'][,flag] 

memorizza il programma presente in memo¬ 
ria su nastro o su disco. I parametri sono: 

nomef nome da assegnare al programma, può' essere 

anche una variabile stringa 

unita' numero logico periferica, 1 per la cassetta, 8 

per il disco 

flag 0 o assenza del flag, per memorizzare in modo riloca- 

bile al momento del LOAD 

1 per memorizzare mantenendo invariato il punto di 

caricamento 

2 per il nastro per aggiungere EOT (fine nastro) 

3 per il nastro per combinare gli effetti 1 e 2. 

Per il nastro può' ' mancare il nome, ma non e' consigliabile 
memorizzare senza un nome. 

Se il flag viene omesso esso vale 0 e ha il significato di 
memorizzare il programma in modo rilocabile. La RILOCAZIONE di un 
programma ha questo significato: 

. di norma il programma BASIC inizia al byte di indirizzo 4097 e 
questo indirizzo si trova nei byte 43 e 44 (puntatore all'inizio 
del programma), 

. se prima di scrivere un programma sposti il puntatore all'i¬ 
nizio del programma modificando il contenuto dei byte 43 e 44, il 
programma inizia a un indirizzo diverso da 4097, 

. se usi il flag=0 nell'istruzione SAVE il programma viene 
memorizzato in modo rilocabile, 

. se usi il flag=1 o il flag=3 nell'istruzione SAVE il programma 
viene memorizzato mantenendo l'informazione sul suo indirizzo di 
inizio, qualunque esso sia, e non e' rilocabile, 

. al momento del LOAD, istruzione nella quale e' possibile usare 
per il flag il valore 1, o il valore 0 (assenza di flag), si ha 
il seguente comportamento: 

.. per flag=0 il programma viene caricato a partire dall'in¬ 
dirizzo di inizio programma che si trova nei byte 43 e 44, 
rilocandolo o meno a seconda del modo come era stato memoriz¬ 
zato; 
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.. per flag=1 il programma viene caricato a partire dall'ina 
dirizzo dove si trovava al momento del SAVE, e questo può’ esse¬ 
re in disaccordo con il valore contenuto nei byte 43 e 44. 

Se per memorizzare e' stato usate il flag, l'istruzione VERIFY 
deve essere scritta in modo tale che non ci sia contrasto con la 
situazione della memoria e quello che sta sul nastro. 

SAVE "PROVE" memorizza su nastro con nome PROVE 

SAVE memorizza su nastro senza nome 

SAVE "PROVA",8 memorizza su disco con nome PROVA 
A$="MOVI":SAVE A$,8 memorizza su disco con nome MOVI 

SAVE "ANALISI",1,2 memorizza su nastro con EOT finale. 

SCALE Istruzione Immediato/Programma 

SCALE <1/0> ha un effetto immediatamente visibile so¬ 

lo se usata in uno dei modi grafici; permette di introdurre un 
fattore di scala per le coordinate. 

Di norma, o per effetto di SCALE 0, i limiti per le coordinate 
grafiche sono: 

•in modo alta risoluzione 0<=x<=319 e 0<=y<=199 
.in modo multicolore 0<=x<=159 e 0<=y<=199 

Dopo l'esecuzione di SCALE 1 le coordinate x e y possono variare 
da 0 a 1023. Questo significa che vengono accettati per x e y 
valori nel range 0-1023 e pensa il sistema ad aggiustare i valo¬ 
ri per far entrare i punti nel quadro video. 

SCNCLR Istruzione Immediato/Programma 

SCNCLR pulisce lo schermo anche in modo grafico. 

SCRATCH Comando Immediato/Programma 

SCRATCH "nomef"[,Dnumd][.Uunita'] cancella il file di no¬ 

me "nomef" dalla directory del dischetto montato sul drive numd 
della periferica di numero logico unita'. Se mancano gli ultimi 2 
parametri deve essere collegata una unita' a disco singolo. Per 
evitare cancellazioni involontarie il sistema chiede conferma con 
il messaggio "ARE YOU SURE?"; rispondendo Y avviene la cancel¬ 
lazione, rispondendo N no. 

SGN Funzione numerica Immediato/Programma 

SGN(esp) dove esp deve essere un'espressione nume¬ 

rica. Fornisce il segno dell'espressione: 0 se esp vale 0, 1 se 
e' positiva, -1 se e' negativa. 

SIN Funzione numerica Immediato/Programma 

SIN(x) fornisce il seno di x, che e' espresso in radian¬ 

ti . 

SOUND Istruzione Immediato/Programma 

SOUND voce, frequenza, durata produce un suono usan- 
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do una delle due voci disponibili, con una frequenza che può' 
variare da 0 a 1023 e con una durata, in 60-esimi di secondo, che 
può' variare da 0 a 65535. 

Voce può' valere: 1 per la voce 1 

2 per la voce 2 

3 per il rumore bianco della voce 2 
Nell'esecuzione di due comandi SOUND successivi con voce uguale, 
il secondo inizia quando il primo suono e' terminato; ponendo la 
durata 0 si ottiene di far cessare immediatamente il suono 
selezionato. 

SPC Funzione di stampa Immediato/Programma 

SPC(esp) dove esp deve dare un risultato numerico 

compreso tra 0 e 255, di cui viene considerata solo la parte 
intera. 

La funzione provoca il salto di n posizioni, se n e' il valore dì 
esp, anche con passaggio alle linee successive, cioè' corri- 

sponde all'invio di n caratteri "cursore a destra". L'uso di SPC 

consente di ottenere incolonnamenti, tenendo conto anche della 
lunghezza dei dati. 

SQR Funzione numerica Immediato/Programma 

SQR(esp) dove esp deve essere un'espressione numerica 

maggiore o uguale a zero. Fornisce la radice quadrata di esp. 

SSHAPE Istruzione Immediato/Programma 

SSHAPE var.xl.yl [,x2,y2] dove: 

var e' il nome di una variabile stringa 

xl,y1 sono le coordinate di un angolo della zona video da 

memorizzare 

x2,y2 sono le coordinate dell'angolo opposto 

L'istruzione, che ha un effetto immediatamente visibile solo se 
usata in uno dei modi grafici, consente di memorizzare zone 
rettangolari del video in una stringa. E' necessario calcolare le 
dimensioni che deve assumere la stringa, che non può' superare i 
255 caratteri, e, in caso, delimitare la zona o frazionarla per 
memorizzarla in piu' strighe. Per calcolare le dimensioni si pos-* 
sono usare le formule che seguono: 

per l'alta risoluzione 

INT((ABS(x1->x2)+1 )/4+. 99)*(ABS(yWy2) + 1 )+4 
per il multicolore 

INT((ABS(x1-x2)+1 )/8+.99)*( ABS(y1->y2)+1 )+4 

La memorizzazione avviene riga per riga; negli ultimi 4 byte del¬ 
la stringa si trovano le lunghezze delle colonne e delle righe 
del rettangolo, nel formato byte basso-byte alto. Tali lunghez¬ 
ze, se e' attivo SCALE, devono essere divise rispettivamente per 
5.12 (colonne) e 3.2 (righe). 
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STEP Istruzione Immediato/Prograrama 

STEP esp dove esp deve essere un'espressione nume¬ 

rica e rappresenta l'incremento da usare nel controllo di un 
ciclo con l'istruzione FOR. Si veda FOR. 

STOP Istruzione Immediato/Programma 

STOP ferma il programma e compare il messag¬ 

gio indicante il numero di linea della STOP. Ha lo stesso effet¬ 
to della pressione del tasto RUN/STOP. Per continuare premere 
CONT, se e' possibile continuare. 

STR$ Funzione stringa Immediato/Programma 

STR$(esp) dove esp deve essere un'espressione numerica. 
Fornisce la stringa corrispondente al numero risultato di esp. La 
stringa generata contiene all'inizio o uno spazio o il segno 
meno. 

SYS Istruzione Immediato/Programma 

SYS in dove ind e' un indirizzo di memoria (compreso tra 

0 e 65535). All'indirizzo indicato deve esserci un sottopro¬ 
gramma in linguaggio macchina che va in esecuzione; esso deve 
terminare con il comando RTS che fa proseguire il programma BASIC 
dall'istruzione successiva alla SYS. A differenza di USR, con SYS 
non si passano parametri; per questa ragione i risultati del 
programma in linguaggio macchina devono essere memorizzati in 
posizioni di memoria definite in modo opportuno, e poi da li' 

prelevati con la funzione PEEK. 

TAB Funzione di stampa Immediato/Programma 

TAB(esp) dove esp deve fornire un valore numerico 

compreso tra 0 e 255. Per il video esp rappresenta la posizione 
di stampa dove portare il cursore contando dall'inizio della 
linea; se la posizione e' già' stata superata dal cursore, essa 
non agisce; se la posizione e' fuori dalla linea, prosegue sulle 
linee seguenti. Quando la stampa e' diretta alla stampante la 
funzione TAB agisce come la funzione SPC, cioè' il conto della 
posizione e' relativo alla posizione attuale. 


TAN Funzione numerica Immediato/Programma 

TAN(x) fornisce la tangente dell'angolo x, che 

deve essere espresso in radianti. 


TO Istruzione Immediato/Programma 

TO fa parte delle istruzioni: BACKUP, COPY, 

DRAW.FOR, CO TO, e a queste si rimanda. 
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TRAP Istruzione Immediato/Programma 

TRAP [n] consente di rendere attiva una routine di 

errore, scritta dall'utente a partire dalla linea n. In tale rou¬ 
tine possono essere analizzate le variabili EL, ER, ERR$ per 
conoscere quale errore si e' verificato ed agire in conseguenza. 
Per uscire dalla routine di errore si deve usare l'istruzione 
RÉSUMÉ. Quando e’ stata eseguita l'istruzione TRAP n, va in 
esecuzione la routine di errore per tutti gli errori salvo quel¬ 
lo di codice 17 "UNDEF'D STATEMENT ERROR”. Va in esecuzione la 
routine anche se si preme il tasto RUN/STOP. 

L'uso di TRAP senza parametro disabilita la funzione. 

TROFF Istruzione Immediato/Programma 

TROFF disabilita la funzione TRON e non ven-> 

gono piu' listati i numeri delle lìnee di programma eseguite. 

TRON Istruzione Immediato/Programma 

TRON abilita la stampa dei numeri di linea 

eseguiti dal programma. É' molto utile per trovare errori nei 
programmi. I numeri di linea compaiono tra parentesi quadre. 

UNTIL Istruzione Immediato/Programma 

UNTIL fa parte dell'istruzione DO...LOOP, a cui si rimanda. 

USR Funzione numerica Immediato/Programma 

USR(x) consente di andare ad eseguire un programma in 

linguaggio macchina, il cui indirizzo di inizio deve essere sta¬ 
to precedentemente memorizzato nei byte 1281 e 1282 (byte 
basso-byte alto). Il parametro x viene passato al programma in 
linguaggio macchina nell'accumulatore 1; esso e' formato da una 
serie di 5 byte da 97 a 102, cosi' utilizzati: 97 per l'espo¬ 
nente, 98-101 per la mantissa e 102 per il segno. Se il para-' 
metro e', invece, una stringa: 97 per il numero dei caratteri, 
98-99 per il puntatore al primo carattere del corpo della strin¬ 
ga. In tale accumulatore si trova un eventuale risultato, che 
pero' viene anche reso disponibile al programma BASIC come valo¬ 
re della funzione. Il programma in linguaggio macchina deve 
terminare con l'istruzione RTS. 

VAL Funzione numerica Immediato/Programma 

VAL(a$) dove a$ può' essere una costante o una variabile 

stringa e deve essere di contenuto numerico. La funzione trasfor¬ 
ma la stringa in un numero. La conversione si ferma al primo 
carattere non numerico incontrato. Se il primo carattere della 
stringa non e' numerico (+, -i o cifra) il risultato e' 0. 

VERIFY Comando Immediato/Programma 

VERIFY "nomef"[.unita'][,flag] confronta il programma 
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presente in memoria con quello selezionato o su disco o su 
nastro. E' buona norma eseguire la verifica dei programmi dopo 
averli memorizzati. Nel caso della cassetta questa istruzione 
può' essere usata per far avanzare il nastro fino a dopo l’ul-^ 
timo programma memorizzato; basta usare VERIFY con quel nome e 
naturalmente il risultato non sara' O.K., ma il nastro sara' 
arrivato al punto giusto. Il flag deve essere presente, quando 
necessario, se il programma da verificare e' stato memorizzato 
con il flag; a questo proposito vale quanto detto per il flag 
nella descrizione del comando SAVE. 


VOL Istruzione Immediato/Programma 

VOL n predispone il volume per il comando 

SOUND. Il numero n può' variare tra 0 e 8. Il valore 0 annulla 
il volume. Il volume e' il medesimo per le due voci. 


WAIT Istruzione Immediato/Programma 

WAIT n,x1 [,x2] dove: 

n e' un indirizzo di memoria, da 0 a 65535 

xl e' un numero tra 0 e 255 

x2 e' un numero tra 0 e 255 
L'operazione agisce cosi': 

. viene analizzato il contenuto del byte n, 

. viene eseguita una operazione di OR-esclusivo (XOR) tra il 
contenuto del byte di indirizzo n e il numero x2; se x2 manca 
viene assunto uguale a 0, 

. viene eseguita una operazione AND tra il risultato precedente e 
xl , 

. se il risultato finale e' 0, cioè’ FALSO, viene eseguita nuova¬ 
mente la WAIT, 

. se il risultato e' diverso da zero, cioè' VERO, il programma 
prosegue. 

Con l'uso non appropriato di questa istruzione si possono produr¬ 
re dei cicli infiniti. 

Le regole delle operazioni logiche AND e XOR sono le seguenti: 


1 AND 1 = 1 
0 AND 1 = 0 

1 XOR 1 = 0 
0 XOR 1 = 1 


1 AND 0=0 
0 AND 0=0 

1 XOR 0 = 1 
0 XOR 0 = 0 


WHILE Istruzione Immediato/Programma 

WHILE fa parte dell'istruzione DO...LOOP, a cui si rimanda. 
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APPENDICE B 


ISTRUZIONI ASSEMBLER 


Nelle tabelle delle pagine seguenti sono riportate le istruzioni 
ASSEMBLER. 

Ogni riga riguarda un'istruzione, riportata in ordine alfabetico 
per codice mnemonico. Per ogni istruzione viene data in colonna 2 
la descrizione sintetica dell'operazione. Seguono sulle colonne 
successive, per ogni tipo di indirizzamento, il codice esade- 
cimale dell'istruzione, il numero dei cicli di clock impiegati 
per eseguirla e il numero dei byte occupati. Nelle ultime 6 
colonne sono indicati i FLAG influenzati dall'esecuzione del¬ 
l'istruzione. 
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APPENDICE C 


CODICI E NUMERI 
DEL CALCOLATORE 


La memoria del calcolatore e' formata da celle che vengono chia¬ 
mate BYTE. Ogni byte e' contraddistinto da un INDIRIZZO numerico 
che può' variare da 0 a 65535, come indicato in Figura C.l. 


I-1-1-. 

I BYTE | BYTE | BYTE 

L_L_I_ 

IND. IND. IND. 

0 12 


I-j-j 

I BYTE | BYTE | 

L_I_I 

IND. IND. 
65534 65535 


Figura C.l Indirizzi di memoria 


Ogni BYTE e' formato da 8 BIT, cifre binarie che possono essere 0 
o 1, come schematizzato in Figura C.2. 


I-1-1-1-1-1-1-1-1 

I B7 I B6 | B5 | B4 | B3 I B2 | B± | B0 I 

L L 1 _I_L_L_I_L_J 

DISPOSIZIONE DEI BIT IN UN BYTE 

NOTA: BI SIGNIFICA BIT DI POSIZIONE I 
B0 E' IL BIT MENO SIGNIFICATIUO 
B7 E' IL BIT PIU' SIGNIFICATIUO 


Figura C.2 Disposizione dei BIT in un BYTE 
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In ogni BYTE si può' rappresentare un numero binario formato da 8 
BIT (0 o 1); i pesi di ogni cifra sono quelli indicati in Figura 

C.3. 


POS. 7 

6 5 

4 

3 

2 

1 

0 

1 1 1 1 I 1 

1 0/l| 0/l| 0/l| 0/i| 0/1 

L_L_L_L_L_L 

1 

0/1 

I 

1 1 

0/1 0/1 

1 J_1 

7 

6 5 

4 

3 

2 

1 

0 

PESI 2 

2 2 

2 

2 

2 

2 

2 

NOTA: B0 

HA PESO 

1 

Bi 

HA 

PESO 

2 

B2 

HA PESO 

4 

B3 

HA 

PESO 

8 

B4 

HA PESO 

16 

B5 

HA 

PESO 

32 

B6 

HA PESO 

64 

B7 

HA 

PESO 

128 

Figura C.3 Pesi 

dei BIT in 

un BYTE 



Per calcolare il valore decimale N del numero contenuto in un 
byte si deve usare la formula che segue, dove "bi" significa "bit 
di posizione i" e " 2 ~ i " signica "2 elevato a i": 

N=b7*2' , 7+b6*2'6+b5*2~5+bi|*2 / 'i(+b3*2~3 + b2*2''2+b1 *2~1 +b0*2~0 
cioè' : 

N=b7*1 28+b6*6 , )+b5*32+b 1 )*1 6+b3*8+b2*H+b1 *2+b0*1 . 

Si ottiene per N il valore 0 quando tutti i bit sono 0, e il 
valore 255 quando tutti i bit sono 1, cioè' si possono ottenere 
256 valori diversi. 

L'interpretazione che viene data al numero contenuto in un byte 
dipende dal contesto nel quale esso viene preso in esame. Duran¬ 
te la lista (LIST) di un programma il numero contenuto in un byte 
può' dar luogo a una parola chiave del linguaggio BASIC. Uno o 
piu' byte contigui possono rappresentare un numero reale espres¬ 
so in forma esponenziale (floating-ipoint) o un numero intero. Una 
serie contigua di byte può' rappresentare una parola codificata 
carattere per carattere. 


I CODICI 

Per rappresentare i caratteri nella memoria del calcolatore o nei 
supporti magnetici di memorizzazione, come dischi o nastri, o per 
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inviare dati alla stampante il sistema usa il codice CBM-ASCII, 
occupando un byte per ogni carattere. In questo codice sono 
disponibili 256 caratteri diversi, codificati da 0 a 255. Non 
tutti questi caratteri sono stampabili; alcuni sono usati come 
codici di controllo per produrre effetti particolari. 

Il COMMODORE PLUS-4 dispone di due gruppi diversi di codici ASCI- 
I, si dice di due SET di caratteri; il primo si chiama SET 
MAIUSCOLO/GRAFICO e il secondo SET MINUSCOLO/MAIUSCOLO. E’ possi¬ 
bile usare i due SET di caratteri in alternativa, mai contempo¬ 
raneamente . 

Per evidenziare i caratteri sul video (cioè’ per scrivere o 
disegnare) il sistema usa un codice leggermente diverso dal codi¬ 
ce ASCII, ma con esso relazionato, che si chiama D/CODE. 
Analizziamo i modi che l'utente ha per inviare dati da tastiera 
al calcolatore: 

.1) Il calcolatore e' in stato comandi, si possono scrivere 
comandi in immediato o istruzioni di programma, le parole chiave 
del linguaggio e i simboli sono trasformati in TOKENS, come indi¬ 
cato in Tabella C.2; le costanti numeriche o stringa, i nomi del¬ 
le variabili e delle funzioni utente sono memorizzate in codice 
ASCII, come indicato in Tabella C.l. 

.2) Il calcolatore e' in stato programma e esegue una istruzione 
dì richiesta dati da tastiera; esso accetta caratteri codificati 
ASCII, che corrispondono ai tasti premuti, e li trasforma nel 
formato richiesto dal tipo di variabile alla quale sono desti¬ 
nati, con eventuale segnalazione di errore. Gli errori possibili 
sono: 

..variabile numerica contro dato alfabetico, 

..variabile stringa contro dato piu' lungo di 255 caratteri. 

In ambedue gli stati indicati il sistema fa comparire quello che 
si scrive, carattere per carattere, sul video nella posizione 
attuale del cursore. 

Riepiloghiamo i modi che ha l'utente per scrivere da programma 
sul video: 

.1) Usare l'istruzione PRINT seguita dal nome di una o piu' 
variabili e/o da una o piu' costanti separate dai separatori 
consentiti. Il sistema fa comparire i dati carattere per carat¬ 
tere a partire dalla posizione attuale del cursore; eventuali 
caratteri di controllo presenti possono spostare la posizione del 
cursore. I caratteri appaiono del colore attivo per il testo. 
Usando i codici di controllo del colore si può' modificare il 
colore dei caratteri. 

La lista dei dati da stampare, che segue la parola chiave PRINT, 
può' comprendere anche funzioni, come, per esempio, la CHR$. Se 
l'argomento dì CHR$ e' il codice di un carattere stampabile, es¬ 
so compare, se, invece, esso e' un codice di controllo, produce 
il suo effetto. 

.2) Usare l'istruzione CHAR che serve per scrivere una stringa di 
caratteri in una definita posizione del video. 
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.3) Usare due istruzioni POKE per memorizzare in una posizione 
della MAPPA VIDEO il D/CODE di un carattere e nella corrispon¬ 
dente posizione della MAPPA COLORE il codice del colore deside¬ 
rato, che deve essere diverso dal colore dello sfondo. In modo 
testo al video corrisponde una zona di memoria (MAPPA VIDEO) che 
può' contenere i codici (D/CODE) dei 1000 caratteri visualiz¬ 
zabili, e una zona di memoria (MAPPA COLORE) per i codici del 
colore che deve avere ogni carattere. 

Nei casi 1 e 2 e' il sistema che esegue le due POKE necessarie 
per evidenziare un carattere sul video. 

I caratteri stampabili di ogni SET sono 128; essi pero' possono 
essere evidenziati in due modi, positivo e negativo (si dice in 
campo diretto e in campo inverso, cioè' scambiando tra loro il 
colore dello sfondo e il colore del carattere). I D/CODE dei 
caratteri stampabili diretti vanno da 0 a 127, quelli dei carat¬ 
teri inversi, da 128 a 255. 

Nella Tabella C.1 sono riportati tutti i caratteri stampabili, 
sia diretti che inversi, per i due SET di caratteri disponibili, 
i codici ASCII, espressi in decimale, e i D/CODE dei caratteri 
diretti e dei caratteri inversi, espressi in decimale. Usando la 
funzione CHR$ con argomento uguale al codice decimale ASCII si 
ottiene la stampa del carattere diretto. Per ottenere il carat¬ 
tere inverso si deve usare il codice di controllo necessario per 
attivare RVS-ON (CHR$(18)). Quando invece si scrive con l'istru¬ 
zione POKE si può' usare il D/CODE del carattere inverso. 


CORRISP. 

CARATTERI, 

CODICI 

ASCII, 

D/CODE 

PER I 

DUE 

SET DISPONIBILI 



MA/GRAF 

MIN/MA 

ASCII 

D/CODE 

DIR. 

INU. 

DIR. INU. 

DEC. 

DIR. 

INU. 


■ 

■ 

32 

32 

160 

1 

U 

U 

33 

33 

161 

■ • 

W 


34 

34 

162 

tt 

LSJ 

H ili 

35 

35 

163 

S 


S H 

36 

36 

164 

V. 

a 

v. a 

37 

37 

165 

& 

g 

& g 

38 

38 

166 

TABELLA C 

. 1 Caratteri, codice 

ASCII e D 

'-"CODE 
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CORRISP. CARATTERI, CODICI ASCII, D/CODE 
PER I DUE SET DISPONIBILI 


MA/GRAF 

HIN/MA 

ASCII 

D/CODE 

DIR. 

INU. 

DIR. 

INU. 

DEC. 

DIR. 

INU. 

* 

U 

* 

H 

39 

39 

167 

< 

a 

( 

Ef 

40 

40 

168 

) 

a 

) 

U 

41 

41 

169 

* 

m 

lai 

* 

l*J 

u 

42 

42 

170 

+ 

□ 

+ 

□ 

43 

43 

171 

9 

H 

# 

n 

44 

44 

172 

~ 

B 

- 

B 

45 

45 

173 

. 

B 

, 

B 

46 

46 

174 

/ 

B 

/ 

E 

47 

47 

175 

0 

[<] 

0 

QJ 

48 

48 

176 

1 

U 

i 

u 

49 

49 

177 

2 


2 

H 

50 

50 

178 

3 


3 

Bl 

51 

51 

179 

4 

EJ 

4 

EJ 

52 

52 

180 

5 

H 

5 

ti 

53 

53 

181 

8 

0 

6 

0 

54 

54 

182 

7 

U 

7 

u 

55 

55 

183 

8 

tu 

8 

0 

56 

56 

184 

9 

0 

9 

yj 

57 

57 

185 

: 

B 

: 

B 

58 

58 

186 

M 

B 

I 

B 

59 

59 

187 

< 

H 

c 

a 

60 

60 

188 

= 

5 

= 

s 

61 

61 

189 

> 

a 

> 

H 

62 

62 

190 

? 

a 

? 

U 

63 

63 

191 

e 

in 

e 

u 

64 

0 

128 

A 

a 

a 

b 

65 

1 

129 

B 

i n 

b 

a 

66 

2 

130 

C 

a 

c 

s 

67 

3 

131 

D 

li} 

d 

EJ 

68 

4 

132 

E 

a 

e 

0 

69 

5 

133 


TABELLA C.1 Caratteri, codice ASCII e D-CODE (continuazione) 
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CORRISP. CARATTERI, CODICI ASCII, D/CODE 
PER I DUE SET DISPONIBILI 


MA/GRAF MIN/MA ASCII D/CODE 


DIR. 

INU. 

DIR. 

INU. 

DEC. 

DIR. 

INU. 

F 

LI 

f 

D 

70 

6 

134 

G 

a 

9 

PI 

71 

7 

135 

H 

a 

h 

m 

72 

8 

136 

I 

il 

i 

a 

73 

9 

137 

J 

u 

j 

n 

74 

10 

138 

K 

13 

k 

a 

75 

11 

139 

L 

LI 

1 

□ 

76 

12 

140 

M 

Li 

M 

c 

77 

13 

141 

N 

liJ 

n 

@ 

78 

14 

142 

0 

LI] 

o 

h 

79 

15 

143 

P 

til 

P 

□ 

80 

16 

144 

Q 

U 

q 

0 

81 

17 

145 

R 

ia 

r 

B 

82 

18 

146 

S 

a 

s 

0 

83 

19 

147 

T 

li 

t 

Q 

84 

20 

148 

U 

tu 

u 

0 

85 

21 

149 

U 

LU 

V 

0 

86 

22 

150 

M 

LI 

w 

C 

87 

23 

151 

X 

a 

X 

□ 

88 

24 

152 

V 

a 

9 

n 

89 

25 

153 

Z 

a 

z 

0 

90 

26 

154 

[ 

u 

C 

u 

91 

27 

155 

£ 

g 

£ 

9 

92 

28 

156 

1 

u 

I 

li 

93 

29 

157 

t 

n 

t 

n 

94 

30 

158 


c 

4- 

c 

95 

31 

159 

- 


— 

” 

96 

64 

192 

4 

□ 

A 


97 

65 

193 

1 

il 

B 

151 

98 

66 

194 

— 

” 

C 

a 

99 

67 

195 

— 

: 

D 

a 

100 

68 

196 

— 

■ 

E 

LI 

101 

69 

197 

— 

; 

F 

II 

102 

70 

198 

1 

II 

G 

a 

103 

71 

199 


TABELLA C.1 Caratteri, codice ASCII e D-CODE (continuazione) 
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CORRISP. 

CARATTERI, 

CODICI 

ASCII, 

D/CODE 

PER 

I DUE 

SET DISPONIBILI 



MA/GRAF 

NIN/MA 

ASCII 

D/CQDE 

DIR. 

INU. 

DIR. 

INU. 

DEC. 

DIR. 

INU. 

1 

Il 

H 

Ili 

104 

72 

200 


a 

I 

u 

105 

73 

201 


L 

J 

li 

106 

74 

202 

j 

’J 

K 

IH 

107 

75 

203 

L 

■ 

L 

II 

108 

76 

204 

\ 


M 

'i 

109 

77 

205 

/ 

rj 

N 

□ 

110 

78 

206 

r 

M 

0 

DJ 

111 

79 

207 


■ 

P 

111 

112 

80 

208 

• 

□ 

Q 

DJ 

113 

81 

209 

_ 

■ 

R 

IH 

114 

82 

210 

* 

L 

S 

H 

Ila 

83 

211 

i 

II 

T 

U 

116 

84 

212 

r 

E 

U 

IL 

117 

85 

213 

X 

* 

u 

IL 

118 

86 

214 

o 

□ 

u 

li 

119 

87 

215 

■ì 

H 

X 

a 

120 

88 

216 

1 

II 

V 

u 

121 

89 

217 

♦ 

11 

z 

» 

122 

90 

218 

+ 

■ ■ 

■ ■ 

+ 

■ ■ 

■ ■ 

123 

91 

219 

S 

X 

% 

SI 

124 

92 

220 

1 

II 

1 

II 

125 

93 

221 

if 

a 

# 

s 

126 

94 

222 

1 

k. 

ss 


127 

95 

223 


m 


■ 

160 

96 

224 

1 

i 

1 

1 

161 

97 

225 


■ 

m 

■ 

162 

98 

226 

— 

■ 

— 

■ 

163 

99 

227 


■ 


■ 

164 

100 

228 

1 

i 

1 

1 

165 

101 

229 

8 

$ 

s 

s 

166 

102 

230 

1 

■ 

1 

1 

167 

103 

231 


TABELLA C.1 Caratteri, codice ASCII e D->CODE (continuazione) 
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CORRISP. CARATTERI, CODICI ASCII, D/CODE 
PER I DUE SET DISPONIBILI 


MA/GRAF 

MIN/MA 

ASCII 

D/CODE 

DIR. 

INU . 

DIR. 

INO. 

DEC. 

DIR. 

INU. 

V» 

¥1 

V. 

» 

168 

104 

232 

r 

A 

% 


169 

105 

233 

i 

■ 

1 

■ 

170 

106 

234 

h 

i: 

h 

i: 

171 

107 

235 

■ 

p 

■ 

p 

172 

108 

236 

L 

u 

L 

L 

173 

109 

237 

T 

a 

T 

a 

174 

110 

238 


■ 


■ 

175 

111 

239 

r 

r 

r 

r. 

176 

112 

240 

j. 

■ a 

x 

a a 

177 

113 

241 

T 

■ a 

T 

aa 

178 

114 

242 

i 

:i 

H 

a 

179 

115 

243 

1 

■ 

1 

■ 

180 

116 

244 

1 

i 

I 

i 

181 

117 

245 

1 

i 

1 

i 

182 

118 

246 


■ 

“ 

■ 

183 

119 

247 


■ 

_ 

■ 

184 

120 

248 


■ 

' _ 

ai 

185 

121 

249 

J 

■ 

✓ 

a 

186 

122 

250 

■ 

n 

■ 

n 

187 

123 

251 

■ 

l 

■ 

k 

188 

124 

252 

4 

u 

4 

a 

189 

125 

253 

■ 

j 

■ 

j 

190 

126 

254 

% 




191 

127 

255 

— 

z 

— 

z 

192 

64 

192 

* 

u 

A 

a 

193 

65 

193 

1 

II 

B 

m 

194 

66 

194 

— 

z 

C 

m 

195 

67 

195 

— 

z 

D 

ia 

196 

68 

196 

— 

■ 

E 

a 

197 

69 

197 

— 

■ 

F 

n 

198 

70 

198 

1 

II 

G 

H 

199 

71 

199 

1 

II 

H 

UJ 

280 

72 

200 


TABELLA C.1 Caratteri, codice ASCII e D-CODE (continuazione) 
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CORRISP. CARATTERI, CODICI ASCII, D/CODE 
PER I DUE SET DISPONIBILI 


MA/GRAF 

MIN/MA 

ASCII 

D/CODE 

DIR. 

INU. 

DIR. 

INU. 

DEC. 

DIR. 

INU. 


.1 

I 

Il 

201 

73 

201 

V 

L* 

J 

li 

202 

74 

202 

j 

’J 

K 

la 

203 

75 

203 

L 

m 

L 

ti 

204 

76 

204 

\ 

X 

M 

li 

205 

77 

205 

/ 

fÀ 

N 

□ 

206 

78 

206 

r 

■ 

0 

li] 

207 

79 

207 

1 

■ 

P 

£ 

208 

80 

208 

• 

□ 

Q 

u 

203 

81 

209 


■ 

R 

ia 

210 

82 

210 

¥ 

Li 

S 

H 

211 

83 

211 

I 

II 

T 

U 

212 

84 

212 

e 

r 

U 

LU 

213 

85 

213 

X 

i'i 

U 

ILI 

214 

86 

214 

0 

□ 

u 

li 

215 

87 

215 

i 

a 

X 

a 

216 

88 

216 

1 

ii 

V 

a 

217 

89 

217 

♦ 

u 

2 

u 

218 

90 

218 

+ 

■ ■ 

■ ■ 

+ 

■ ■ 

■ s 

219 

91 

219 

% 

a 

> 

A 

220 

92 

220 

1 

il 

i 

II 

221 

93 

221 

ir 

c 


a 

222 

94 

222 


L 

ss 

SS 

223 

95 

223 


■ 


■ 

224 

96 

224 

1 

1 

1 

1 

225 

97 

225 

m 

■ 

m 

■ 

226 

98 

226 

~ 

■ 


■ 

227 

99 

227 


■ 


■ 

228 

100 

228 

r 

■ 

1 

■ 

229 

101 

229 

a 

& 

a 

SS 

230 

102 

230 

i 

1 

1 

■ 

231 

103 

231 

V. 


\\ 

» 

232 

104 

232 

r 

A 

a 

« 

233 

105 

233 

i 

1 

1 

1 

234 

106 

234 


TABELLA C.1 Caratteri, codice ASCII e D-CODE (continuazione) 
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CORRISP. CARATTERI, CODICI ASCII, D/CODE 
PER I DUE SET DISPONIBILI 


MA/GRAF 

MIN/MA 

ASCII 

D/CODE 

DIR. 

INU. 

DIR. 

INU. 

DEC. 

DIR. 

INU 

F 

i: 

F 

i: 

235 

167 

235 

■ 

r 

■ 

p 

236 

108 

236 

L 

L 

L 

u 

237 

109 

237 

n 

n 

*1 

n 

238 

110 

238 

_ 

■ 


■ 

239 

111 

239 

r 

R 

r 

R 

246 

112 

240 

j. 

■ ■ 

JL 

■ ■ 

241 

113 

241 

T 

a ■ 

T 

aa 

242 

114 

242 

-1 

:i 

-1 

:i 

243 

115 

243 

1 

i 

i 

■ 

244 

116 

244 

1 

i 

1 

i 

245 

117 

245 

1 

i 

1 

i 

246 

118 

246 


s 


E 

247 

119 

247 


m 


■ 

248 

120 

248 


m 


■ 

249 

121 

249 

J 

a 

✓ 

a 

256 

122 

250 

■ 

1 

■ 


251 

123 

251 

■ 

L 

■ 

b 

252 

124 

252 

J 

B| 

J 

•j 

253 

125 

253 

■ 

J 

■ 

j 

254 

126 

254 


E 

Sf 

s 

255 

94 

222 


TABELLA C.1 Caratteri, codice ASCII e D-*CODE (continuazione) 


La Tabella C.1 si riferisce ai soli caratteri stampabili, che so-> 
no 128 diretti e 128 inversi; le prime due colonne riportano i 
caratteri del SET MAIUSCOLO /GRAFICO, le due colonne successive 
quelli del SET MINUSCOLO/MAIUSCOLC. 

I codici ASCII vanno da 32 a 127 e da 160 a 255; in realtà' i 
codici da 192 a 223 producono gli stessi caratteri dei codici da 
96 a 127, i codici da 224 a 254 producono gli stessi caratteri 
dei codici da 160 a 190, e il codice 255 produce lo stesso carat¬ 
tere del codice 126. 

La Tabella C.2 riguarda i TOKENS, cioè' i codici corrispondenti 
alle parole chiave e ai simboli del BASIC. In essa la prima 
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colonna riporta il codice, la seconda la parola chiave o il sim¬ 
bolo corrispondente, la terza il modo, se esiste, per abbreviare 
la scrittura, la quarta l'effetto prodotto sul video dall'abbre¬ 
viazione. Nella Tabella C.2 e' stato seguito quasi l'ordine 
alfabetico delle parole chiave, ponendo in fondo i simboli di ti-> 
po aritmetico. Le eccezioni all'ordine alfabetico delle parole 
chiave si hanno per: 

..FN, che segue DEF, dato che si usano insieme, 

..THEN e ELSE che seguono IF, dato che sono usate insieme a IF, 
..USING che segue PRINT e PRINT#, dato che viene usato insieme ad 
esse. 


T 0 K E N S 


CODICE 

KEVUORD 

ABBREVIAZIONE 

VISUALIZZAZIONE 

182 

ABS 

A SHIFT-B 

Al 

175 

AND 

A SHIFT-N 

A/ 

198 

ASC 

A SHIFT-S 

A* 

193 

ATN 

A SHIFT-T 

Al 

226 

AUTO 

A SHIFT-U 

A r 

246 

BACKUP 

B SHIFT-A 

B* 

225 

BOX 

B SHIFT-0 

Br 

224 

CHAR 

CH SHIFT-A 

CH* 

199 

CHRS 

C SHIFT-H 

CI 

226 

CIRCLE 

C SHIFT-I 


160 

CLOSE 

CL SHIFT-0 

cLr 

156 

CLR 

C SHIFT-L 

CL 

157 

CMD 

C SHIFT-M 

c\ 

243 

COLLECT 

COL SHIFT-L 

COLL 


TABELLA C.2 Parole chiave, TOKENS e abbreviazioni 
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T 0 K E N & 


CODICE 

KEYWORD 

231 

COLOR 

154 

CONT 

244 

COPY 

ISO 

COS 

131 

DATA 

209 

DEC 

150 

DEF 

165 

FN 

247 

DELETE 

134 

DIM 

238 

DIRECTORY 

240 

DLOAD 

235 

DO 

229 

DRAW 

239 

DSAVE 

128 

END 

211 

ERRS 

237 

EXIT 

189 

EXP 

129 

FOR 

184 

FRE 

1G1 

GET 

203 

GO 

141 

GOSUB 

137 

GOTO 

222 

GRAPHIC 

227 

GSHAPE 

241 

HEADER 

234 

HELP 

210 

HEXS 

139 

IF 

167 

THEN 

213 

ELSE 

133 

INPUT 

132 

INPUT# 

212 

INSTR 


ABBREVIAZIONE 

CO SHIFT-L 
C SHIFT-0 
CO SHIFT-P 
MANCA 
D SHIFT-A 
MANCA 
D SHIFT-E 
MANCA 

DE SHIFT-L 
D SHIFT-I 
DI SHIFT-R 
D SHIFT-L 
MANCA 
D SHIFT-R 
D SHIFT-S 
E SHIFT-N 
E SHIFT-R 
EX SHIFT-I 
E SHIFT-X 
F SHIFT-0 
F SHIFT-R 
G SHIFT-E 
MANCA 

GO SHIFT-S 
G SHIFT-0 
G SHIFT-R 
G SHIFT-S 
HE SHIFT-A 
HE SHIFT-L 
H SHIFT-E 
MANCA 
T SHIFT-H 
E SHIFT-L 
MANCA 
I SHIFT-N 
IN SHIFT-S 


VISUALIZZAZIONE 

COL 

cr 

con 

MANCA 

D* 

MANCA 

D“ 

MANCA 

DEL 

D*k 

DI_ 

DL 

MANCA 

D_ 

D* 

E/ 

E_ 

EX-t 

E* 

Fr 

F_ 

G“ 

MANCA 

GO* 

or 

G_ 

G* 

HE* 

HEL 

H“ 

MANCA 
T I 
EL 

MANCA 

1 / 

IN* 


TABELLA C.2 Parole chiave, TOKENS e abbreviazioni (continuazione) 
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T 0 K E H S 


CODICE 

KEYWORD 

ABBREVIAZIONE 

VISUALIZZAZIONE 

181 

INT 

MANCA 

MANCA 

207 

JOY 

J SHIFT-0 

jr 

249 

KEY 

K SHIFT-E 

K“ 

208 

LEFTS 

LE SHIFT-F 

LE- 

195 

LEN 

MANCA 

MANCA 

136 

LET 

L SHIFT-E 

L~ 

155 

LIST 

L SHIFT-I 

L-* 

147 

LOAD 

L SHIFT-0 

Lr 

230 

LOCATE 

LO SHIFT-C 

LO- 

188 

LOG 

MANCA 

MANCA 

236 

LOOP 

LO SHIFT-0 

Lor 

202 

MI D$ 

M SHIFT-I 

M* 

250 

MONITOR 

M SHIFT-0 

MT 

162 

NEW 

MANCA 

MANCA 

130 

NEXT 

N SHIFT-E 

N“ 

168 

NOT 

N SHIFT-0 

Nr 

145 

ON 

MANCA 

MANCA 

159 

OPEN 

0 SHIFT-P 

on 

176 

OR 

MANCA 

MANCA 

223 

PAINT 

P SHIFT-A 

P* 

194 

PEEK 

P SHIFT-E 

P“ 

151 

POKE 

P SHIFT-0 

pr 

185 

POS 

MANCA* 

MANCA 

153 

PRINT 

? 

? 

152 

PRINTtt 

P SHIFT-R 

P_ 

251 

USING 

US SHIFT-I 

US% 

221 

PUDEF 

P SHIFT-U 

P r 

205 

RCLR 

R SHIFT-C 

R- 

208 

RDOT 

R SHIFT-D 

R- 

135 

READ 

R SHIFT-E 

R- 

143 

REM 

MANCA 

MANCA 

245 

RENAME 

RE SHIFT-N 

RE/ 

248 

RENUMBER 

REN SHIFT-U 

REN r 

140 

RESTORE 

RE SHIFT-S 

REV 

214 

RÉSUMÉ 

RES SHIFT-U 

RES r 

142 

RETURN 

RE SHIFT-T 

REI 

204 

RGR 

R SHIFT-G 

RI 

201 

RIGHTS 

R SHIFT-I 

R-* 


TABELLA C.2 Parole chiave, TOKENS e abbreviazioni (continuazione) 
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T 0 K E N S 


CODICE KEVWORD 

206 RLUM 

187 RND 

138 RUN 

148 SAUE 

233 SCALE 

232 SCNCLR 

242 SCRATCH 

180 SGN 

191 SIN 

218 SOUND 

166 SPC< 

186 SQR 

228 SSHAPE 

169 STEP 

144 STOP 

196 STRS 

158 SVS 

163 TABC 

192 TAN 

164 TO 

215 TRAP 

217 TROFF 

216 TRON 

252 UNTIL 

183 USR 

197 UAL 

149 UERIFV 

219 UOL 

146 MAIT 

253 MHILE 

170 + 

171 

172 * 

173 / 

174 t 

177 > 

178 

179 < 


ABBREUIAZIONE 
R SHIFT-L 
R SHIFT-N 
R SHIFT-U 
S SHIFT-A 
SC SHIFT-A 
S SHIFT-C 
SC SHIFT-R 
S SHIFT-G 
S SHIFT-I 
S SHIFT-0 
S SHIFT-P 
S SHIFT-Q 
S SHIFT-S 
ST SHIFT-E 
S SHIFT-T 
ST SHIFT-R 
S SHIFT-V 
T SHIFT-A 
MANCA 
MANCA 
T SHIFT-R 
TRO SHIFT-F 
TR SHIFT-0 
U SHIFT-N 
U SHIFT-S 
U SHIFT-A 
U SHIFT-E 
U SHIFT-0 
M SHIFT-A 
U SHIFT-H 


* 

✓ 

t 

> 

< 


UISUALIZZAZIONE 

RL 

R/ 

R e 
Sé 
SC* 

S- 

SC_ 

SI 

s^ 

sr 

sn 

s* 

sv 

ST- 

S| 

ST— 

s I 

T* 

MANCA 

MANCA 

T- 

TRO- 

TRr 

U/ 

U* 

U* 

u- 

ur 

M* 

U| 


w 

/ 

t 

> 

C 


TABELLA C.2 Parole chiave, TOKENS e abbreviazioni (continuazione) 
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Nella Tabella C.3 riportiamo l'elenco dei TOKENS in ordine di 
codice crescente. 


TOKENS ORDINATI 


CODICE 

KEVMORD 

CODICE 

KEVMORD 

128 

END 

160 

CLOSE 

129 

FOR 

161 

GET 

130 

NEXT 

162 

NEM 

131 

DATA 

163 

TAB< 

132 

INPUT# 

164 

TO 

133 

INPUT 

165 

FN 

134 

DIM 

166 

SPC< 

135 

READ 

167 

THEN 

136 

LET 

168 

NOT 

137 

GOTO 

169 

STEP 

138 

RUN 

170 

+ 

139 

IF 

171 

- 

140 

NESTORE 

172 

K 

141 

GOSUB 

173 

/ 

142 

RETURN 

174 

t 

143 

REM 

175 

AND 

144 

STOP 

176 

OR 

145 

ON 

177 

> 

146 

MA IT 

178 

= 

147 

LOAD 

179 

< 

148 

SAUE 

180 

SGN 

149 

UER IFV 

181 

INT 

150 

DEF 

182 

ABS 

151 

POKE 

183 

USR 

152 

PRINT# 

184 

FRE 

153 

PRINT 

185 

POS 

154 

CONT 

186 

SQR 

155 

LIST 

187 

RND 

156 

CLR 

188 

LOG 

157 

CMD 

189 

EXP 

158 

SVS 

190 

COS 

159 

OPEN 

191 

SIN 
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192 

TAN 

214 

RÉSUMÉ 

193 

ATN 

215 

TRAP 

194 

PEEK 

216 

TRON 

195 

LEN 

217 

TROFF 

196 

STBS 

218 

SOUND 

197 

UAL 

219 

UOL 

198 

ASC 

220 

AUTO 

199 

CHR$ 

221 

PUDEF 

208 

LEFTS 

222 

GRAPHIC 

201 

RIGHTS 

223 

PAINT 

202 

MIPS 

224 

CHAR 

203 

GO 

225 

BOX 

204 

RGR 

226 

CIRCLE 

205 

RCLR 

227 

GSHAPE 

206 

RLUM 

228 

SSHAPE 

207 

JOV 

229 

DRAM 

208 

RDOT 

230 

LOCATE 

209 

DEC 

231 

COLOR 

210 

HEX$ 

232 

SCNCLR 

211 

ERRS 

233 

SCALE 

212 

INSTR 

234 

HELP 

213 

ELSE 

235 

DO 


TABELLA C.3 TOKENS in ordine di codice 


Dalla Tabella C.2 sono escluse le parole riservate riportate nel¬ 
la Tabella C. 1 ); esse sono codificate carattere per carattere in 
codice ASCII. Inoltre, l'istruzione GET# viene memorizzata 
utilizzanto il codice di GET, seguito dal codice ASCII di #, 
cioè' come 161 e 35 in due byte. 

Per il significato delle variabili della Tabella C. -4, rimandiamo 
all'Appendice A. 


CODICE 

KEYMORD 



236 

LOOP 

242 

SCRATCH 

237 

EXIT 

243 

COLLECT 

238 

DIRECTORY 

244 

COPY 

239 

DSAUE 

245 

RENAME 

240 

DLOAD 

246 

BACKUP 

241 

HEADER 

247 

DELETE 
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248 

RENUMBER 

251 

USINO 

249 

KEV 

252 

UNTIL 

250 

MONITOR 

253 

UH ILE 


Nella Tabella C.5 riportiamo il significato di alcuni dei codici 
ASCII che vanno da 0 a 31 e da 128 a 160, quando sono usati come 
argomento della funzione CHR$. Per alcuni codici viene indicato 
anche l'effetto prodotto relativamente alla stampante MPS803. 


I PAROLE 

L 

-1 

RISERUATE CODIFICATE | 

IN ASCII 1 

.... . _ 1 

I NOME 

L 

CODIFICA ASCII 

1 

I DS 

68 

83 


I DS$ 

68 

83 36 


1 EL 

69 

76 


1 ER 

69 

82 


I ERRS 

69 

82 82 36 


1 ST 

83 

84 


1 TI 

84 

73 


1 TIS 

84 

73 36 


1 «f 

255 


1 _ 



_ 1 


TABELLA C.A Parole riservate codificate ASCII 
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l C 

0 D I C 

I DI C 0 N T R 

- 1 

0 L L 0 | 

1 

1_ 



1 

J 

1 

1 

L_ 

CODICI 

SIGNIFICATO 

1 

1 

_1 


5 

8 


9 

18 

13 

14 


15 

16 
17 


18 

19 

28 

26 

27 


28 

29 

38 

31 

129 

138 

131 


C8L0RE BIANCO <CTRL-2> 
DISABILITA SHIFT-CBM 
MPS881 ATTIUA NODO 

GRAFICO PER PUNTI 
ABILITA SHIFT-CBM 
MPS881 MANDA LINE FEED 
RETURN 

MPS881 RETURN + LINE FEED 
ATTIUA SET MAIUSC . VtlINUSC . 
MPS881 ATTIUA DOPPIA 
AMPIEZZA 

MPS881 DISABILITA COD. 14 
MPS881 SPOSTAMENTO POS. 
EFFETTO DI FRECCIA GIU' 
MPS881 ATTIUA SET 

MINUSC./MAIUSC. 
ATTIUA RUS ON 
MPS881 ATTIUA RUS ON 
CURSORE IN POSIZIONE HOME 
CANCELLA <DELETE> 

MPS881 RIPETE CAR. GRAFICI 
FUNZIONE DI ESCAPE 
MPS881 SPOSTA A UNA 

POSIZIONE PUNTO 
COLORE ROSSO (CTRL-3) 
EFFETTO FRECCIA A DESTRA 
COLORE UERDE <CTRL-6> 
COLORE BLU <CTRL-7> 

COLORE ARANCIONE (CBM-l) 
FLASH ON 
FLASH OFF 


TABELLA C.5 Codici di controllo 
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| CODICI 
I 141 
I 142 
I 144 
| 145 
I 
I 

I 146 
I 147 
I 

I 148 
I 149 
I 158 
I 151 
152 
I 153 
I 154 
I 155 
I 156 
I 157 
I 158 
I 159 
I 

L_ 


SIGNIFICATO I 

SHIFT-RETURN I 

ATTIVA SET MAIUSC./GRAF. I 
COLORE NERO (CTRL-l) I 

EFFETTO FRECCIA SO I 

MPS801 ATTIVA SET I 

MAIUSC./GRAF. I 

DISATTIVA RVS ON <RVS OFF> | 
PULIZIA VIDEO E I 

CURSORE IN POS. HOME I 

ATTIVA INSERIMENTO <INS> I 
COLORE BRUNO <CBM-2> I 

COL. GIALLO UERDE (CBM-3) I 
COLORE ROSA <CBM-4> I 

COLORE BLU VERDE (CBM-5) | 

COLORE BLU CHIARO <CBM-6> | 

COLORE BLU SCURO <CBM-7> | 

COL. VERDE CHIARO <CBM-8> | 

COLORE PORPORA (CTRL-5> | 
EFFETTO FRECCIA A SINISTRA | 
COLORE GIALLO <CTRL-8> I 

COLORE CIANO <CTRL-4> I 

_I 


TABELLA C.5 Codici di controllo (continuazione) 
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Nella Tabella C.6 sono indicate le relazioni tra i codici ASCII 


1- 

I RELAZIONE 

-1 

TRA CODICE ASCII | 

1 

E D-CODE I 


L_J 


| ASCII 

D-CODE 

1 

L_ 


_1 


320A0 63 

D 

= 

A 


640A0 95 

D 

= 

A 

- 64 

96<=A<=127 

D 

- 

A 

- 32 

160C=AO19i 

D 

= 

A 

- 64 

1920A0254 

D 

= 

A 

-128 

A =255 

D 

SE 

A 

-161 


I- 


-I 


TABELLA C.6 Relazione tra codice ASCII e D-*CODE 


Riepiloghiamo i modi disponibili per cambiare il set di carat-. 
teri. 

.1) Premere contemporaneamente i tasti SHIFT e CBM fa passare dal 
set attivo all'altro. La pressione di questi due tasti non ha 
effetto se e' stato prima eseguito il comando: PRINT CHR$(8), che 
disabilita i tasti SHIFT-CBM. Nel caso basta eseguire il coman¬ 
do: PRINT CHR$(9) per abilitare nuovamente i tasti SHIFT-CBM. 

.2) Eseguire il comando: PRINT CHR$(142) per attivare il set 
maiuscolo/grafico. Eseguire il comando PRINT CHR$(14) per atti¬ 
vare il set minuscolo/maiuscolo. 

I caratteri, che vengono evidenziati sul video, sono descritti 
per punti in una zona di memoria ROM del calcolatore. Ogni carat¬ 
tere e' rappresentato da 64 punti disposti in una matrice di 8 
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righe e 8 colonne; in conseguenza per descrivere un carattere 
vengono usati 8 byte, cioè' 6 1 ! bit. Il primo byte rappresenta i 
punti della prima riga, il secondo quelli della seconda riga, e 
cosi' via. I bit a 1 corrispondono ai punti da evidenziare nel 
colore del testo (inchiostro), i bit a 0 ai punti dove lasciare 
invariato il colore dello sfondo. Quando un carattere deve esse¬ 
re visualizzato sul video, il sistema, usando come puntatore il 
D/CODE del carattere, va a prelevare la sua descrizione dalla 
tabella relativa e lo disegna per punti nella posizione attuale 
del cursore. 


«««STAMPA IMMAGINE CARATTERI*** 
D/CODE= 0 SET MAIUSCOLO/GRAFICO 


CARATTERE BINARIO 

DECIMALE 

**** 

00111100 

60 

** ** 

01100110 

102 

M w WWW 

01101110 

110 


01101110 

110 

** 

01100000 

96 

«* * 

01100010 

98 

**** 

00111100 

60 


00000000 

0 

«««STAMPA 

IMMAGINE CARATTERI**» 

D/C0DE= 1 

SET MAIUSCOLO/GRAFICO 


CARATTERE 

BINARIO 

DECIMI 

** 

00011000 

24 

MMMM 

00111100 

60 

** «« 

01100110 

102 

****** 

01111110 

126 

** ** 

01100110 

102 

** ** 

01100110 

102 

** ** 

01100110 

102 


00000000 

0 


Figura C. 1 ) Descrizione dei caratteri 
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«««STAMPA IMMAGINE CARATTERI**» 
D/CODE= 65 SET MAIUSCOLO/GRAFICO 


CARATTERE 

BINARIO 

DECIMI 

w 

88061808 

8 

««* 

08811188 

28 

mot*» 

00111110 

62 

1HHHHHW 

01111111 

12? 


01111111 

127 

*** 

00011100 

28 

KMHKH 

00111110 

62 


00000000 

0 


«««STAMPA IMMAGINE CARATTERI**» 
D/CODE= 88 SET MAIUSCOLO/GRAFICO 


CARATTERE 

BINARIO 

DECIMALE 


00011000 

24 

** 

00011000 

24 

«* «* 

01100110 

102 


01100110 

102 

NN 

00011000 

24 

«* 

00011000 

24 


00111100 

60 


00000000 

0 

Figura C.J4 Descrizione 

dei caratteri 

(continuazione) 


Nella Figura C.4 sono riportati i caratteri corrispondenti ai 
D/CODE 0, 1 65 e 88 nel set maiuscolo/grafico. Essi sono dise¬ 
gnati ingranditi usando un asterisco in corrispondenza di ogni 
bit a 1. Inoltre, viene riportato il contenuto binario e il valo¬ 
re decimale degli 8 byte che descrivono il carattere. 
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I NUMERI 


Quando si considera un numero contenuto in due byte consecutivi 
si possono presentare i seguenti casi: 

..1) I due byte rappresentano un indirizzo usato dal sistema per 
la gestione del calcolatore. In questo caso il byte di indirizzo 
minore (il primo) e' il byte basso (LO) e quello successivo (il 
secondo) e' il byte alto (HI). Per calcolare il numero rappre¬ 
sentato, se N e' l'indirizzo del primo byte, si procede cosi': 

Numero = 256*PEEK(N+1) + PEEK(N) 

..2) I due byte rappresentano un numero intero con segno. In que¬ 
sto caso il primo byte contiene la parte piu' significativa del 
numero e il secondo la parte meno significativa. Il bit piu' 
significativo del primo byte (bit 7) e' usato per il segno; 0 per 
numeri positivi e 1 per numeri negativi. 

Il valore del numero intero positivo può' variare da 0 a 
32767=127*256+255. 

Esempi : 

numero decimale: 0 
contenuto dei due byte binari: 

00000000 00000000 

numero decimale: 32767 
contenuto dei due byte binari: 

01111111 11111111 

numero decimale: 837 
contenuto dei due byte binari: 

00000011 01000101 

Il valore del numero intero negativo può' variare da -32768 a -1. 

Per arrivare alla rappresentazione del numero negativo (detta in 
complemento a 2) possiamo procedere cosi': 

. .consideriamo la potenza del 2 immediatamente superiore al mas¬ 
simo numero rappresentabile (con 15 bit a disposizione, 8 nel 
byte basso e 7 nel byte alto, si arriva al massimo al valore 
posizionale di 2*14), che risulta 2*15, cioè' il numero 32768; 
..consideriamo il valore assoluto del numero da rappresentare; 
..calcoliamo la differenza tra 32768 (2*15) e il valore assoluto 
del numero; 

..scriviamo in binario il risultato del calcolo precedente; 

..alla fine aggiungiamo un bit 1 a sinistra per il segno meno. 
Esempio: rappresentazione di -837. 

Calcoliamo 32768-837=31931 e troviamo la rappresentazione bina¬ 
ria di 31931 usando il metodo delle sottrazioni successive delle 
potenze di 2: 
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31931 

- 

16384 

« 

15547 

bit 

1 

in 

posizione 

14 

15547 

- 

8192 

= 

7355 

bit 

1 

in 

posizione 

13 

7355 

- 

4096 

= 

3259 

bit 

1 

in 

posizione 

12 

3259 


2048 

« 

1211 

bit 

1 

in 

posizione 

11 

1211 


1024 

= 

187 

bit 

1 

in 

posizione 

10 

187 

- 

128 

= 

59 

bit 

1 

in 

posizione 

7 

59 

" 

32 

= 

27 

bit 

1 

in 

posizione 

5 

27 


16 

= 

11 

bit 

1 

in 

posizione 

4 

11 


8 

« 

3 

bit 

1 

in 

posizione 

3 

3 

- 

2 

= 

1 

bit 

1 

in 

posizione 

1 

1 

-» 

1 

= 

0 

bit 

1 

in 

posizione 

0 


il contenuto dei due byte risulta, dopo l'aggiunta del bit 1 di 
segno in posizione 15: 

11111100 10111011 
e rappresenta -'837. 

Si può' arrivare allo stesso risultato applicando la regola che 
segue: 

..scrivere la rappresentazione binaria del valore assoluto del 
numero: 

00000011 01000101 

..sostituire ai bit 1 dei bit 0 e ai bit 0 dei bit 1, e, alla fi¬ 
ne sommare un bit 1 in fondo a destra (1+1=10 e 1+0=1 nel cal¬ 
colo binario): 

con la sostituzione si ha 11111100 10111010 
con l'aggiunta si ha 11111100 10111011. 

Il numero ottenuto e' la rappresentazione in complemento a 2 del 
numero negativo. 

Il numero -1 ha la rappresentazione in complemento a 2: 11111111 
11111111, mentre il numero -32768 ha la rappresentazione in 
complemento a 2: 10000000 00000000. 

Con il programma INTERI, che segue, puoi provare a introdurre 
numeri interi; vedrai alcune cose interessanti analizzando i 
risultati. 


1 REM INTERI 

10 IHPUT"NUMERO INTERO: ";H7. 

20 IENZ=0THENSTOP 
30 PRINT"STftMPfi NUMERO NZ: ";NZ 
40 GOTO10 
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RISULTATI PROGRAMMA INTERI 


NUMERO INTERO: ? 32767 
STAMPO NUMERO NX: 32767 
NUMERO INTERO: 7-32767 
STAMPA NUMERO NX: -32767 
NUMERO INTERO: ? 45.09 
STAMPA NUMERO N V. - 45 

NUMERO INTERO: ? 32768 
STAMPA NUMERO XV. : -32768 
NUMERO INTERO: ? 58880 
STAMPA NUMERO NX : -15536 
NUMERO INTERO: 7-88567 
STAMPA NUMERO NX : -23831 
NUMERO INTERO: 7-32768 

7ILLE6AL QUANTI TV ERROR IN 18 
READY. 


Se rispondi con 32768 viene ricevuto -32768; se rispondi con 
50000 viene ricevuto -15536, se rispondi con -88567 viene rice¬ 
vuto -=23031 . In conseguenza se un programma chiede un numero 
intero si deve RIGOROSAMENTE rispondere con un numero compreso 
tra -32767 e + 32767 . Come puoi vedere dai risultati del program¬ 
ma INTERI, se introduci il numero -32768 ottieni un messaggio di 
errore. 

Quando un singolo byte rappresenta un numero senza segno, esso 
varia da 0 a 255. Se si considera il primo bit a sinistra per il 
segno, allora il numero positivo varia da 0 a 127 e il numero 
negativo (applicando le regole precedenti al singolo byte) varia 
da -il 28 a -1 . 

I numeri non interi, cioè' i numeri reali, sono rappresentati 
nella memoria del calcolatore in forma esponenziale 
(floating-point) occupando 5 byte consecutivi. Il primo dei 5 
byte contiene l'esponente (caratteristica del numero) e gli altri 
4 contengono la mantissa, cioè' le cifre significative del nume¬ 
ro. Sia la caratteristica che la mantissa sono numeri con segno. 
Esempi di numeri decimali espressi in forma esponenziale sono i 
seguenti: 

123456=0.123456*1 CT6 
123466=1.23456*10*5 
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123^56=12.3456*10*4 
123456=0.00123456*1 0*8 
123.895=0.123895*10*3 
123.895=1.23895*10*2 
0.789=789*10*(->3) 

Di norma viene detta forma normalizzata quella nella quale la 
mantissa comincia con la prima cifra significativa preceduta dal 
punto decimale. 

Nella memoria del calcolatore sia la caratteristica che la 
mantissa sono espressi in binario con segno. Per la caratte¬ 
ristica il campo di variabilità' risulta tra -128 e +127, il che 
corrisponde a una variabilità' in decimale da 10*(--39) a 
10*(+38). 

Per il campo di variabilità' della mantissa dobbiamo considerare 
il valore di 4 byte associati, con il piu' significativo a sini¬ 
stra che inizia con il bit di segno. Inoltre, dato che la mantis¬ 
sa viene calcolata in modo che il primo bit di sinistra sia sem¬ 
pre 1 (come se il numero rappresentato fosse del tipo 0.1... e si 
siano trascurati lo 0 e il punto decimale), il sistema trascura 
il primo bit, che e' sempre 1, e lo aggiunge solo quando il nume¬ 
ro viene utilizzato per calcoli o visualizzazione. Questo modo di 
procedere consente di ampliare l'intervallo di variabilità' del 
numero. In conseguenza i limiti di variabilità' per la mantissa 
risultano da -4294967304 a +4294967304. Contrariamente a quanto 
avviene per gli interi, la mantissa dei numeri reali viene sem¬ 
pre conservata in valore assoluto e viene aggiunto il primo bit 
di sinistra a 0 per i positivi e a 1 per i negativi (rappre¬ 
sentazione in grandezza e segno). 

I numeri reali vengono stampati con 9 cifre decimali, ma in 
memoria ne sono conservate 10. 


Con il programma REALI, che segue, puoi provare a introdurre 
numeri qualunque e controllare come vengono stampati. 


1 REM REALI 

10 INPUT"NUMERO REALE: ";N 
20 IFN=0THENSTOP 
30 PRINT"STAMPA NUMERO N: N 

40 GOTO10 
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RISULTATI PROGRAMMA REALI 


NUMERO REALE: ? 9.99999999 
STAMPA NUMERO N: IO 
NUMERO REALE: ? 999999999 
STAMPA NUMERO N: 999999999 
NUMERO REALE: ? 1234.56789123 
STAMPA NUMERO N: 1234.56789 
NUMERO REALE: ? -9898989898 
STAMPA NUMERO N: -9.8989899E+A? 
NUMERO REALE: ? .88880123456789123 
STAMPA NUMERO N: 1.23456789E-86 
NUMERO REALE: ? 4294967388 
STAMPA NUMERO N: 4.2949673E+89 
NUMERO REALE: ? 42949673999 
STAMPA NUMERO N: 4.2949674E+18 
NUMERO REALE: ? -429496736666 
STAMPA NUMERO N: -4.29496737E+11 
NUMERO REALE: ? 8 
STAMPA NUMERO N: 8 
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APPENDICE D 


MESSAGGI DI ERRORE 


errore 1 : T00 MANY FILES 

Questo messaggio appare quando si cerca di aprire l'undicesimo 
file. Il COMMODORE PLUS- 1 ) infatti può' tenere aperti al massimo 
dieci file contemporaneamente. 

errore 2: FILE OPEN 

Questo messaggio appare quando si vuole aprire un file logico che 
già' e' stato aperto. 

errore 3: FILE NOT OPEN 

Si cerca di comunicare con un file prima di averlo aperto, 
errore !): FILE NOT FOUND 

Il file richiesto non e' presente sul dischetto, o lo sportello 
del drive non e' stato chiuso, oppure il drive e' guasto. Nelle 
operazioni su cassetta questo messaggio appare dopo che e’ stato 
incontrato sul nastro il segnale "fine nastro" 

errore 5: DEVICE NOT PRESENT 

La periferica con cui si e' cercato di comunicare non e' colle¬ 
gata, oppure e' spenta, oppure e' guasta. 

errore 6: NOT INPUT FILE 

Si cerca di ricevere dati da un file che non e’ stato aperto in 
lettura (ad esempio un file su nastro aperto in scrittura). 

errore 7: NOT OUTPUT FILE 

Si e' cercato di inviare dati a un file aperto in lettura (ad 
esempio la tastiera). 

errore 8: MISSING FILE NAME 

Si e' cercato di salvare un programma su disco senza specie 
ficarne il nome. 
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errore 9: ILLEGAL DEVICE NUMBER 

Si e' cercato di eseguire operazioni di ingresso-uscita non 
consentite per la periferica individuata; ad esempio salvare su 
unita' 3i che e' il video. 

errore 10: NEXT WITHOUT FOR 

E' stato incontrato NEXT prima di FOR. Fai molta attenzione a 
chiudere bene tutti i cicli FOR..NEXT: vedi al proposito il 
paragrafo 2.7 

errore 11 : SYNTAX ERROR 

E' stato introdotto un comando che il calcolatore non riconosce: 
controlla bene tutte le lettere della frase introdotta: l'errore 
di sintassi e' dovuto spesso a errori di battuta. Questo errore 
appare anche quando si cerca di assegnare dei valori alle varia¬ 
bili riservate, come TI, TI$, ST, DS, DS$, ER, EL. Anche l'uso di 
parole chiave (G0, TO, IF, OR, ON, ecc) come variabili produce 
SYNTAX ERROR. Esempio: AG0=21 e' sbagliato perche' AGO viene 
interpretato come A + G0, e GO e' una parola riservata. A volte 
può' capitare questo errore in una linea che appare perfetta: 
può' capitare che l'interprete abbia interperetato male delle 
parole-chiave: ad esempio, la linea: 

IFSTAND64THENPRINT"FINE FILE" : EXIT 

produce SYNTAX ERROR, perche' viene interpretata cosi'. 

IF S TAN D64 THEN PRINT. 

(TAN e' una parola riservata) Una linea cosi' e' palesemente 
sbagliata. Perche' questa linea sia interpretata correttamente 
occorre porre gli spazi nel modo seguente: 

IF ST AND 64 THEN _ 

Se pensi che il tuo SYNTAX ERROR sia causato da una situazione di 
questo tipo, puoi per sicurezza separare tutte le parole chiave 
con spazi. 

errore 12: RETURN WITHOUT GOSUB 

E' stata incontrata un'istruzione RETURN senza aver incontrato 
GOSUB: questo errore capita spesso quando ci si dimentica di por-, 
re il comando END alla fine del programma principale, e il calco¬ 
latore prosegue, andando ad eseguire le subroutine che seguono il 
programma. 

errore 13: OUT 0F DATA 

Questo errore l'hai trovato sicuramente tutte le volte che hai 
premuto RETURN quando il cursore si trovava su una linea che 
iniziava con la scritta "READY.". Il COMMODORE PLUS-4 interpreta 
questo messaggio come il comando READ Y e cerca nel programma una 
linea DATA. Se non la trova segnala questo errore. Nel programma 
invece questo errore significa che le linee DATA sono state let¬ 
te tutte, e si e' tentato di leggere piu' dati di quanti sono 
disponibili. 
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errore 14: ILLEGAL QUANTITY 

Una variabile ha superato il limite consentito per l'operazione 
richiesta. Aiutati con la funzione HELP e chiedi il valore delle 
variabili che interessano la linea dove e' avvenuto l'errore; 
eventualmente controlla i limiti consentiti alle variabili nel 
comando che lampeggia dopo HELP. 

errore 15: OVERFLOW 

Una variabile ha raggiunto un valore troppo alto o troppo basso. 
Leggi il Capitolo 1 e l'appendice C per sapere quali sono ì valo-^ 
ri massimi e minimi delle variabili. 

errore 16: OUT OF MEMORY 

Non c'e' posto in memoria per eseguire l'operazione richiesta: 
per rimediare puoi migliorare la compattazione del tuo programma 
ponendo molti comandi su una sola linea, o, a volte, eseguire 
l'istruzione GRAPHIC CLR, e non usare la pagina grafica, oppure 
ancora dividere il programma in pezzettini (se hai il drive) e 
caricare di volta in volta le routine che ti servono. Questo 
messaggio può' apparire anche quando lo STACK (particolare area 
di lavoro usata dalle routine del sistema) viene riempito, cioè' 
quando ci sono troppi FOR..NEXT uno dentro l'altro, con dei 
GOSUB, con dei DO...LOOP, o con delle espressioni matematiche con 
molti livelli di parentesi. Prova ad eseguire il programma: 

10 GOSUB 10 

esso uscirà' con il messaggio OUT OF MEMORY: al BASIC infatti so-> 
no riservati 128 bytes di memoria per lo STACK, che non possono 
essere espansi. Per capire se questo messaggio e' stato causato 
da un riempimento dello STACK, puoi chiedere quanta memoria e' 
ancora libera, mediante il comando: 

PRINT FRE(O) 

Se il numero e' grande, allora e' probabile che la memoria piena 
sia lo STACK, se e' piccolo allora la memoria piena dovrebbe 
essere quella utente. Per avere la certezza sulla causa del 
messaggio puoi usare la funzione HELP, e vedere la natura del 
comando che ha causato l'errore. Se il comando era un DIM, o un 
assegnamento di variabile, allora la memoria piena e' quella 
utente, se invece il comando e' un GOSUB, o un FOR, o un DO, o il 
calcolo di un'espressione con delle parentesi, allora la memoria 
piena e' quella riservata allo STACK. In quest'ultimo caso devi 
provvedere a cambiare la struttura del tuo programma, in modo da 
occupare meno posizioni nello STACK. 

errore 17: UNDEF'D STATEMENT 

Hai eseguito GOTO, GOSUB, RUN, RESTORE, TRAP o RÉSUMÉ con il 
numero di una linea che non esiste. 

errore 18: BAD SUBSCRIPT 


419 



L'indice che hai usato per un variabile con indice supera il 
valore indicato in sede di dimensionamento, oppure e' negativo. 

errore 19: REDIM'D ARRAK 

Il calcolatore ha incontrato due volte l'istruzione DIM sulla 
stessa variabile; questo può' essere dovuto a un effettivo dop¬ 
pio dimensionamento, oppure al fatto che il BASIC dimensiona 
automaticamente una variabile con indice a 10, quando si fa 
riferimento a un suo elemento la prima volta. Ad esempio il 
comando: 

PRINT A(4) 

fa si' che venga eseguita una DIM A(10) automaticamente, se il 
vettore A non era ancora stato dimensionato, e ciò' produce que¬ 
sto errore se successivamente si incontra un'istruzione DIM. Se 
si vuole effettivamente cancellare un vettore, e dimensionarlo 
nuovamente, allora bisogna eseguire prima una CLR, che cancella 
tutte le variabili, e poi dimensionare nuovamente il vettore. Ma 
attenzione: l'istruzione CLR cancella tutto lo STACK, quindi non 
può' essere eseguita ne' in una subroutine, ne' in un ciclo. 

errore 20: DIVISION BY ZERO 

Il divisore di una divisione e' stato di valore 0. Per evitare 
l'arresto del programma devi controllare il divisore, ed evitare 
la linea con il calcolo se questo vale zero. Utile in certi casi 
può' essere l'istruzione TRAP, che ti permette di eseguire una 
subroutine speciale dopo un errore; cosi' facendo puoi evitare di 
calcolare a parte il denominatore, rendendo piu' veloce l'ese¬ 
cuzione del programma. 

errore 21 : ILLEGAL DIRECT 

Alcuni comandi non possono essere eseguiti in modo diretto, ma 
solo in un programma, come INPUT e GET. 

errore 22: TYPE MISMATCH 

Il tipo di variabile usato non concorda con quello richiesto; 
assegnare ad una variabile numerica un valore alfabetico produce 
questo errore. 

errore 23: STRING TOO LONG 

Le stringhe possono avere la lunghezza massima di 255 caratteri. 
Questo messaggio appare facilmente col comando SSHAPE, e appare 
anche quando introduci linee di comando che superano gli 88 
caratteri. Tieni presente che conviene non superare gli 80 carat¬ 
teri in una lìnea BASIC, in modo che i listati sulla stampante 
non debbano andare a capo, e le eventuali correzioni siano piu' 
facili, avendo a disposizione alcuni caratteri. 

errore 24: FILE DATA 
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I dati letti dal file non sono del tipo richiesto (di solito 
stringhe al posto di numeri). 

errore 25: FORMULA T00 COMPLEX 

Questo messaggio appare di solito quando il calcolatore e' in 
"tilt", a causa di POKE o SYS o routine in linguaggio macchina 
sbagliate. 

errore 26: CAN'T CONTINUE 

II programma può' riprendere dopo uno STOP, un END, o un BREAK 
ottenuto premendo il tasto RUN/STOP, a patto di non aver ne' 
introdotto ne' modificato linee BASIC. Se il programma si ferma 
per un errore, allora il comando CONT provoca sempre questo 
messaggio di errore. 

errore 27: UNDEF'D FUNCTION 

Si e' cercato di calcolare il valore di una funzione non defi- 
nita. 

errore 28: VERIFY ERROR 

Il programma che si trova in memoria e' diverso da quello che sì 
trova su nastro o disco: questo errore può' significare che un 
file e' stato salvato su un supporto labile, o piu’ facilmente 
che il programma in memoria sia stato leggermente cambiato. 

errore 29: LOAD ERROR 

Un programma che si trova su nastro non si riesce a caricare: 
prova a pulire le testine del registratore; se l'errore rimane, e 
sei sicuro che la cassetta e’ stata registrata da un registra¬ 
tore in ordine, allora puoi portare il tuo registratore a un 
servizio assistenza tecnica, e richiedere di allineare le testi¬ 
ne. 


errore 30: BREAK ERROR 

Hai premuto il tasto RUN/STOP durante l'esecuzione di un program¬ 
ma, oppure hai posto un comando STOP nel programma; se non vuoi 
che questo messaggio appaia, usa il comando END al posto di STOP. 

errore 31 : CAN'T RÉSUMÉ 

Il comando RÉSUMÉ può' essere eseguito solamente in una routine 
in cui si e' entrati a causa di un errore, con l'istruzione TRAP. 
Questo errore appare quando RÉSUMÉ e' stato incontrato senza 
l'errore. 

errore 32: LOOP NOT FOUND 

I cicli DO...LOOP devono terminare con un LOOP, altrimenti viene 
segnalato questo errore al momento di uscire dal loop. 
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errore 33: LOOP WITHOUT DO 

Questo errore e' molto simile a NEXT WITHOUT FOR; l'istruzione 
LOOP non ha senso se prima non si e* incontrato un DO. 

errore 3M: DIRECT MODE ONLY 

Alcuni comandi si possono eseguire solo in modo diretto, cioè' 
non da programma; AUTO, RENUMBER, DELETE sono tra questi. 

errore 35: NO GRAPHICS AREA 

Si e' cercato di eseguire comandi grafici prima che sìa stata 
riservata memoria all'area grafica con il comando GRAPHIC. 

errore 36: BAD DISK 

Questo errore appare quando si cerca di eseguire operazioni sul 
disco, e queste non hanno buon esito; richiedi il valore di DS$ 
per sapere la natura dell'errore. 
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APPENDICE E 


UTILIZZO DELLA MEMORIA 


Il COMMODORE PLUS- 1 ) utilizza la memoria disponibile con la 
tecnica dei PUNTATORI. Questo significa che in una zona di 
memoria RAM, chiamata PAGINA ZERO (corrispondente agli indirizzi 
piu' bassi), sono memorizzati, in byte di indirizzo prefissato, 
gli indirizzi di inizio o fine di particolari zone di memoria. 

Il programma BASIC dell'utente comincia, di norma, all'indirizzo 
A097 ; l'indirizzo di inizio in memoria del programma BASIC sì 
trova memorizzato nei due byte di indirizzo A3 e AA. Gli 
indirizzi memorizzati in due byte hanno la parte meno 
significativa nel primo byte e la piu' significativa nel secondo. 
Per calcolare l'indirizzo di inizio del programma BASIC si deve 
eseguire l'istruzione: 

I=256*PEEK(AA)+PEEK(A3) 
ottenendo all'accensione I=A097. 


Altri indirizzi utili di puntatori sono: 

INIZIO VARIABILI E FINE PROGRAMMA BASIC +1 : A5 e A6 

INIZIO VARIABILI CON INDICE E FINE VARIABILI SINGOLE: A7 e A8 

FINE VARIABILI CON INDICE +1 : A9 e 50 

INDIRIZZO CIMA CORPI STRINGHE: 51 e 52 

PUNTATORE CORPO STRINGHE: 53 e 5A 

INDIRIZZO PIU’ ALTO ZONA DEDICATA AL PROGRAMMA UTENTE: 55 e 56. 
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MEMORIA PROGRAMMA 
UTENTE 


PUNTATORI 


4097 


INDIRIZZO 
PIU’ ALTO 


PROGRAMMA 

IN BASIC ] 


VARIABILI 

SINGOLE ' 


VARIABILI 

CON INDICE 1 


ZONA 

LIBERA 

CORPI ‘ 

DELLE STRINGHE 



43-44 

45-46 

47-48 

49-50 

51-52 

53-54 

55-56 


Figura E.1 Utilizzo della memoria e puntatori 


Durante la stesura e l'esecuzione dì un programma i contenuti di 
alcuni di questi puntatori cambiano. Se si allunga il programma, 
le variabili iniziano dopo, se si aggiungono variabili singole si 
sposta l'inizio delle variabili con indice. 

La memoria dedicata al video va da 3072 a 4071 . La memoria 
dedicata ai colori del video va da 2048 a 3047. 

Fissiamo la nostra attenzione sulla rappresentazione delle 
variabili in memoria e utilizziamo alcuni programmi per vedere 
come esse sono memorizzate. 

Iniziamo con il programma INTINMEM. In esso viene chiesto un 
numero intero e ne viene rtostrata la rappresentazione in memoria. 

1 REM INTINMEM 

10 IHPUT' TDIF I NUMERÒ INTERO = ";NX 
15 M$="NUMERI INTERI IN MEMORIA" 

29 PRINT’1iU ,, MS:PRINT"l<JN!< = ";N>C 
25 A=256«PEEK(46)+PEEK<45> 

30 F0RK = 0T06:PRINTPEEK <A+K);" :NEXTK:PRINT 

35 STOP 

Per vedere cosa c'e' in memoria, viene calcolato l'indirizzo di 
inizio delle variabili; la variabile NJ e' la prima definita nel 
programma e quindi si trova nei primi byte della zona. 
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Dai risultati vediamo che per una VARIABILE SINGOLA INTERA sono 
occupati 7 byte consecutivi; i primi due contengono il nome, e 
precisamente: 

.primo byte: codice ASCII prima lettera del nome + 128, per noi 
78, codice di N, +128 da' 206, 

.secondo byte: 128 solo, dato che la variabile ha un solo 
carattere. 

La costante aggiuntiva 128 consente di distinguere che si tratta 
di una variabile con suffisso %. 

Ai primi due byte ne seguono 5, dei quali pero' sono utilizzati 
solo i primi 2, nel modo byte alto che precede il byte basso, 
come puoi vedere dai risultati. Il programma stampa il contenuto 
dei 7 byte in decimale (non in binario). 

Il programma FLOATINMEM ci permette di vedere come sono 
memorizzati i numeri reali, cioè' quelli memorizzati in variabili 
senza suffisso. 

i REM FLOATINMEM 

10 PBINT-LTiMSCRIUI UN NUMERO DECIMALE" : INPUTN 
15 IFSW=1THEN25 

20 P=PEEK<45) +256++PEEK<4G> G0SUB235 
25 PRIHT" miflfl "Cl$; N : LS="“ 

30 IFPEEK<P)O78THENST0P 
35 F0RI=1T05:X(I)=PEEK<P+I+1):NEXTI 
40 PRINTC2S 

45 F0RI=2T05:PRINTX<I);" “;:NEXTI 

50 PRINT:PRINTOS 

55 F0RI=2T05:GOSUB165:PRINTF$<I>;" ";=NEXTI 
60 PRINT 

65 PRIHTC3S PRINTLS 
70 S=l*2*(LEFTStFS<2).l)="l") 

75 F$<2)="1"+RIGHT$<F$<2),7) 

80 PRINTN1$:PRINTN2$ 

85 LLS=FS(2)+FS<3)+F$<4>+F$<5> 

90 PRINTLLS 
95 V=X(1)-128 
100 PRINTC8S;X<1> 

105 PRINTC5S;V 

110 IFV<0THENMS="0" D$=LEFT$<Z$,-V)+LL$:GOTO140 
115 IFX<1)=0THENMS="0":DS=“0":GOTO140 
120 IFY>LEN<LL$)THENLL$=LEFT$<LL$+Z$,Y> 

125 MS=LEFTS<LLS,V):Z=LEN<LLS)-V 
130 IFZ<=0THEND5="0":GOTO140 
135 DS=RIGHTS(LLS,<LEN<LL$)-V)) 

140 PRINTC6S,M$:PRINTC7S,D$ 

145 G0SUB195:G0SUB215:PRIHTC4S;<M+D)*S 
150 INPUT"iaUANCORA (S/H> ";BS 
155 IFBS="S"THENSH=l:GOTOi0 
160 STOP 

165 F$<I)="" FORJ=7TO0STEP-1 
170 IFINT<X<I>v'2tJ> = 0THENi88 
175 FS(I)=FS<I>+"l":X(I)=X<I)-2tJ:GOT0185 
180 FS<I)=FS(I)+"0" 

185 HEXT:L$=LS+FS<I):RETURN 
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190 PRINTD; " 

195 M=0: IFM$="0"THENRETURN 
200 FORJ=LEN<MS)TOiSTEP-l 

205 IFMID$(M$,J, 1) = "l"THENM=M+2t<LEN< MS >-J > 

210 NEXTJ:RETURN 

215 D = 0 : IFDS="0"THENRETURN 

220 FORJ=±TOLEN<D$) 

225 IFMIDS<D$,J,1)=“1"THEND=D+ <l/2>tJ 
230 NEXTJ:RETURN 

235 Ni$="STRINGA BIT CON AGGIUNTO BIT INIZIALE" 
240 N2S="AL POSTO DEL BIT DI SEGNO" 

245 OS="QUATTRO BVTE MANTISSA IN BINARIO" 

250 P$=“NUMERI FLOATING POINT" 

255 Ci$="NUMERO INTRODOTTO = " 

260 C2$="QUATTR0 BVTE MANTISSA IN MEMORIA" 

265 C3$=”STRINGA DI BIT INIZIALE" 

270 C4S=”NUMERO CALCOLATO = “ 

275 C5S="ESP. PER BASE 2 = " 

280 C6$="UAL.BIN.PART.INT. SENZA SEGNO" 

285 C7$="UAL.BIN.PART.DEC. SENZA SEGNO" 

290 C8S="BVTE ESP. = " 

295 Z$="0“:F0RK=iT0i27:ZS=Z$+“0":NEXTK 
380 RETURN 


Il programma chiede un numero reale e stampa: 

.il numero introdotto, 

.i byte della mantissa in decimale, 

.i 4 byte della mantissa in binario, 

.la stringa di bit dei byte, 

• la stringa di bit con aggiunto il bit 1 iniziale al posto del 
bit di segno, 

•il valore decimale dell'esponente, 

.l'esponente calcolato per la base 2 (ottenuto sottraendo 128 al 
valore precedente), 

•il valore binario della parte intera senza segno, 

.il valore binario della parte non intera, 

.il numero ricalcolato. 

In certi casi puoi trovare una differenza tra il numero 
introdotto e quello ricalcolato. La routine che ricalcola il 
numero, dopo aver aggiunto il bit 1 nella prima posizione a 
sinistra, si trova da 215 a 230. 

Il nome della VARIABILE SINGOLA REALE sta nei primi due byte; 
troviamo nel primo il codice ASCII della prima lettera e nel 
secondo il codice ASCII del secondo carattere o zero. 
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Il programma VARINMEM ci consente di vedere la rappresentazione 
in memoria di qualunque tipo di variabile. Esso definisce le 
seguenti variabili: 

.singole: M, N, Y, Z, A, K, Bj, I, C$, J, Y$, 

.con indice: D, E$, F$. 

Servendosi dei puntatori vengono stampati i contenuti delle 
diverse zone di memoria dedicate alle variabili. 


1 REM UARINMEM 

10 M=0:N=0:V=0:Z=0 

15 DIMD<6),EZ<5,4>,FS<5,3,2> 

20 A=0:FORK=1TO50:A=A+1tNEXTK 

25 FORK=0TO6:D(K)=K*3:NEXTK 

30 BZ=0 : FORI=1TO50STEP2 : BX=BX+2 : NEXTI 

35 FORK=0TO5:FORI=0TO4 

40 EX<K,I)=K*i + 9:NEXTI,K 

45 CS^'FINE" 

50 FORK=0TO5:FORJ=0TO3:FORI=0TO2 
55 READV$:F$<K,J,I)=CS+VS 
60 HEXTI , J, K 

65 V=PEEK<45)+256*PEEK<46> 

70 0PEN4,4:CMD4 
75 PRINT:PRINT"UARIABILI":M=V 
80 PRIHTM;"»*" 

85 F0RI=0TO10:FORN=0TO6 
90 V=PEEK<45)+256*PEEK<46> 

95 PRINTPEEK<M+N);" **; NEXTN PRIHT :PRIHT 

100 M=H*7:NEXTI 

105 V=PEEK<47)*256*PEEK<48) 

HO Z=PEEK<49)+256*PEEK<50) 

115 PRINT:PRINT ,, ARRAY”:PRINTV;"** ,, :K=V 
120 M=PEEK<K+2)+256*PEEK<K+3> 

125 I=0:FORJ=KTOK*N-1 

130 PRIHTPEEK<J>;” 1 = 1*1 

135 IFI=7THENPRIHT: 1=0 

140 HEXTJ:K=K+MIFK=ZTHEH150 

145 PRINT:GOTO120 

150 PRINT:PRINT”FINE ARRAV' PEEK(Z) 

155 PRIHT:PRINT:PRINT"CORPO STRINGHE”:PRINT 
160 Y=PEEK<5i)+256*PEEK<52> 

165 Z=PEEK<55>*256*PEEK<56> 

170 1=0 :FORK=VTOY+50:PRIHTK;PEEK(K>; 

175 1=1*1:IFI=3THENPRINT:1=0 
180 NEXTK 

185 I=0 :FORK=Z—50TOZ:PRINTK;PEEK< K); 

190 1=1*1:IFI=3THENPRINT:1=0 
195 NEXTK 

200 PRINTH4:CL0SE4:STOP 

205 DATAAAA,BBB,CCC,DOD,EEE,FFF,GGG,III,LLl_ 

210 DATAA,B,C,D,E,F,G,H. I,J,K,L,M,N,0,P,Q,R,S,T 
215 DATA(J,U,M,X,V,Z,Al,Bi,Ci,Di,Ei,Fi,Gl,HI,Il 
220 DATAJl,Kl,Ll,Mi,Ni,01,Pl,Ql,Ri,Si,Tl,Ul,Ul 
225 DATAMI. XI, Yi,Zi.ABC,DEF,GHI, JKL , (INO, PQR , STU 
230 DATAUMX.YZZ,PIPPO.PLUTO 
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Nella memoria destinata alle variabili del programma BASIC 
esistono tre zone distinte; esse sono: 

.variabili singole, subito dopo il programma, puntatore in 45 e 
46, 

.variabili con indice, dopo le variabili singole, puntatore in 47 
e 48, 

•corpi delle stringhe, a partire dal fondo della memoria, per 
indirizzi decrescenti, puntatori in 51/ 52 e in 53/54. 

Le stringhe sono rappresentate in due parti, la testata, con il 
nome, la lunghezza in caratteri, il puntatore al corpo della 
stringa e le altre indicazioni necessarie per le variabili 
stringa con indice, sta o nella prima o nella seconda zona, 
mentre il corpo della stringa, cioè' i caratteri, stanno nella 
terza zona. Quando il contenuto di una variabile stringa varia, 
si ha l'aggiornamento della testata e del corpo. Dal momento che 
esiste questa separazione in zone delle variabili, quando viene 
creata una variabile singola, le variabili con indice già' 
esistenti vengono traslate in memoria per far posto alla nuova 
variabile. 

Nel programma VARINMEM vengono create le variabili, viene letto 
con la funzione PEEK il contenuto e stampato. 

La prima parte dei risultati ci mostra, dopo la parola VARIABILI, 
il valore del puntatore alle variabili, poi troviamo le 11 
variabili singole del programma; ognuna occupa 7 byte. Troviamo 
ordinatamente: 

M, nome 77 0, caratteristica 141, mantissa 33 56 0 0. 

N, nome 78 0, caratteristica 130, mantissa 64 0 0 0. 

Y, nome 89 0, caratteristica 141, mantissa 33 56 0 0. 

Z, nome 90 0, caratteristica e mantissa presenti al momento della 

lettura; 

A, nome 65 0, caratteristica e mantissa presenti al momento della 
lettura; 

K, nome 75 0, caratteristica 131, mantissa 64 0 0 0. 

B%, nome 194 128, valore intero 0 50; 

I, nome 73 0, caratteristica 131, mantissa 96 0 0 0. 

C$, nome 67 128, cioè' il codice ASCII del primo carattere del 
nome e il codice ASCII del secondo carattere del nome + 128 a 
significare il suffisso $; il terzo byte contiene il contatore 
dei caratteri, che può' essere al massimo 255 e qui e' 4, infatti 
C$ contiene FINE, che le viene assegnato alla linea 45 del 
programma. Il quarto e quinto byte contengono il puntatore al 
corpo della stringa nel formato byte basso e byte alto. Nella 
zona corpo delle stringhe troviamo la parola FINE. 

J, nome 74 0, caratteristica 131, mantissa 0000. 

Y$, nome 89 128, numero caratteri 5, puntatore a 

60*256+159=15519. Da 15519 a 15523 si trova la parola PLUTO, 
ultima letta in Y$. 
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Andando a cercare nella terza zona dei risultati, quella 
denominata CORPO STRINGHE, troviamo la parola FINE seguita da due 
byte che contengono il puntatore al byte che contiene il numero 
di caratteri della stringa nella sua testata. Analogamente per la 
stringa Y$, troviamo la parola PLUTO, seguita dal puntatore al 
byte che da' la lunghezza della stringa nella sua testata. 

Passando alla seconda zona dei risultati troviamo le variabili 
con indice. Dopo la parola ARRAY (denominazione inglese delle 
variabili con indice, dette anche MATRICI), seguita 
dall'indirizzo di inizio delle stesse. 

Seguono ordinatamente: 

D(6), cioè' la variabile numerica D di 7 elementi reali. Nei 
primi 2 byte compare il nome, 68 0; seguono due byte, byte basso 
e byte alto, che danno il numero totale dei byte occupati, in 
questo caso 1)2. Segue un byte con il numero delle dimensioni, 1 
in questo caso. Si hanno poi due byte, byte alto e byte basso, 
contenenti il numero di elementi dell'unica dimensione, 7 in 
questo caso. Seguono tanti gruppi di 5 byte quanti sono gli 
elementi, contenenti i numeri reali nel formato caratteristica e 
mantissa. 

E%(5,i4), cioè' la variabile numerica intera con indice EJ di 30 
elementi (6*5). Vediamo 2 byte per il nome, 197 128; seguono i 
due byte contatori della memoria occupata, 69 byte qui. Segue il 
byte con il numero delle dimensioni, 2, il numero di elementi 
dell'ultima dimensione, 0 5, e infine il numero di elementi della 
prima dimensione, 0 6. Gli elementi che seguono occupano ciascuno 
2 byte, dato che si tratta di numeri interi. Come vedi nel caso 
delle variabili con indice intere si ha un risparmio di memoria 
rispetto alle singole. 

F$(5,3,2), cioè' la variabile stringa con indici F$, di 72 
elementi. Per la testata valgono le stesse regole valide per le 
altre variabili con indice. Per gli elementi sono usati 3 byte; 
il primo dice quanto e' lungo l'elemento e gli ultimi due sono il 
puntatore al corpo della stringa. 

Nella zona ARRAY, la descrizione di D(6) inizia alla prima riga e 
occupa 6 righe. La descrizione di E?(5,4) inizia alla settima 
riga e termina alla sedicesima riga. La descrizione di F$(5,3,) 
inizia alla diciassettesima riga (70 128 227 0 3 0 3); se conti 
11 numeri, cioè' passi al quinto numero della riga seguente 
trovi: 7 226 63, cioè' il primo elemento F$(0,0,0), che contiene 
la parola FINEAAA. 

Nella zona CORPO STRINGHE, se ti interessa, con un po' di 
pazienza puoi ritrovare i dati che desideri. L'unico problema e' 
calcolare bene i valori dati da due byte, ricordando quando il 
byte alto precede quello basso e quando no. 
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MAPPA DELLA MEMORIA 
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CHANNL $0013 19 Flag: INPUT prompt 

LINNUM $0014-$0015 20-21 Temp: valore numero intero 

TEMPPT $0016 22 Puntatore: stack temporaneo per stringhe 

LASTPT $0017 - $0018 23->24 Indirizzo- ultima stringa temporanea 
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VARPNT $0047->$0048 71--72 Punt: dati della variabile BASIC corrente 

FORPNT $0049-$004a 73“74 Punt: variabile indice per F0R/NEXT 

OPPTR $004b-$004C 75-76 

0PMASK $004D 77 




DEFPNT $004E--$004F 78-79 

DSCPNT $0050-$0051 80-81 

$0052 82 

HELPER $0053 83 
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MVDFLG $0075 117 Flag: 10 K alta risoluzione allocati 

KEYNUM $0076 118 

KEYSIZ $0077 119 

SYNTMP $0078 120 



DSDESC $0079-$007B 121-123 Descrittore di DS$ 

TOS $007C-$007D 12H-125 Cima dello stack del BASIC 

TMPTON $007E-$007F 126-127 Temporanee per la musica (tono e volume) 

VOICNO $0080 128 
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DFLTN $0098 152 Unita' di input di default (0) 

DFLT0 $0099 153 Unita’ di output di default (3) 

MSGFLG $009A 154 Flag: $80 = modo diretto; $00=programraa 

SAL $009B 155 Errore passo 1 su nastro 



SAH $009C 156 Errore passo 2 su nastro 

EAL $009D 157 

EAH $009E 158 

TI $009F-$00A0 159M60 Area dati temporanea 
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SEDSAL $00CCH$00C1 192-193 Temporaneo per lo Scrolling 

RVS $00C2 19-4 Flag di reverse on 

INDX $00C3 195 

LSXP $00C4 196 Posizione X all'inizio 



LSTP $00C5 197 

SFDX $00C6 198 Tasto premuto 

CRSW $00C7 199 Flag: INPUT o GET dalla tastiera 

PNT $00C8-$00C9 200-201 Punt: indirizzo linea corrente di schermo 
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CURBNK $00FB 251 Configurazione del banco corrente 

XON $00FC 252 Codice carattere XON (RS 232) 

XOFF $00FD 253 Codice carattere XOFF (RS 232) 

SEDT2 $00FE 25^ Usata temporaneamente dall'editor 



LOFBUF $OOFF 255 

SYSSTK $0100-$01FF 256-511 Stack della CPU 

BUF $0200-$0258 512-600 Buffer di input BASIC e MONITOR 

$0259-$02AC 601-68H Area usata dal BASIC per comandi DOS 
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ICLRCH $0320-$0321 
IBASIN $0322-$0323 
IBSOUT $032i)-$0325 
ISTOP $0326-$0327 



IGETIN $0328-$0329 
ICLALL $032A-$032B 
USRCMD $032C-$032D 
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LSEM $07FC 2044 Semaforo per arresto motore cassetta 

TEDATR $0800-0BFF 2048-3071 Mappa degli attributi per il video 

TEDSCN $OCOO-OFFF 3072-4095 Mappa dei caratteri nel video 



APPENDICE G 


REGISTRI DEL TED 


Segue una tabella che riporta gli indirizzi esadecimali e 
decimali dei registri del TED e la funzione dei bit di ogni 
registro. 
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APPENDICE H 


VALORE DELLE NOTE 


Questa appendice contiene la lista delle 72 note che formano 6 
ottave, il valore che bisogna usare come secondo parametro 
nell'istruzione SOUND per ottenere la nota, e la frequenza della 
nota espressa in Hertz. 
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NOTA 

L'ALORE 

FREQUENZA 

LA 

7 

109.97 

LA# 

64 

116.50 

SI 

1 1 8 

123.44 

DO 

1 69 

130.81 

DO# 

217 

138.59 

RE 

262 

146.77 

RE# 

305 

155.55 

MI 

345 

164.71 

FA 

383 

174.48 

FA# 

419 

184.86 

SOL 

453 

195.87 

SOL# 

485 

207.50 

LA 

516 

220.16 

LA# 

544 

233.00 

SI 

571 

246.89 

DO 

597 

261.92 

DO# 

621 

277.52 

RE 

643 

293.54 

RE# 

665 

311.53 

MI 

685 

329.91 

FA 

704 

349.50 

FA# 

722 

370.33 

SOL 

739 

392.42 

SOL# 

755 

415.76 








NOTA 

LALORE 

FREQUENZA 

LA 

770 

440.32 

LA# 

784 

466.0 0 

SI 

798 

494.87 

DO 

818 

522.62 

DO# 

822 

553.67 

RE 

834 

588.63 

RE# 

844 

621.34 

MI 

854 

657.89 

FA 

864 

699.00 

FA# 

873 

740.67 

SOL 

881 

782.10 

SOL# 

889 

828.45 

LA 

897 

880.63 

LA# 

904 

932.00 

SI 

91 1 

989.74 

DO 

91 7 

1045.24 

DO# 

923 

1107.33 

RE 

929 

1177.27 

RE# 

934 

1242.67 

MI 

939 

1315.77 

FA 

944 

1398.01 

FA# 

948 

1471.58 

SOL 

953 

1575.22 

SOL# 

957 

1669.26 







NOTA 

«v^ALORE 

FREQUENZA 

LA 

960 

1747.51 

LA# 

964 

1864.01 

SI 

967 

1962.11 

DO 

971 

2110.20 

DO# 

974 

2236.81 

RE 

976 

2330.01 

RE# 

979 

2485.34 

MI 

982 

2662.87 

FA 

984 

2796.01 

FA# 

986 

2943.17 

SOL 

988 

3106.68 

SOL# 

990 

3289.43 

LA 

992 

3495.01 

LA# 

994 

3728.02 

SI 

996 

3994.30 

DO 

997 

4142.24 

DO# 

999 

4473.62 

RE 

1000 

4660.02 

RE# 

1002 

5083.66 

MI 

1003 

5325.74 

FA 

1004 

5592.02 

FA# 

1005 

5886.34 

SOL 

1006 

6213.36 

SOL# 

1007 

6578.85 








APPENDICE I 


FUNZIONI MATEMATICHE 
DERIVATE 


Questa appendice mostra come calcolare le funzioni che non sono 
direttamente richiamabili dal BASIC 3.5. 


FUNZIONE 

EQUIVALENTE BASIC 

sec<X> 

l/COS<X> 

cosec(X) 

1/SIN<X) 

cotan <X) 

1/TAN < X > 

aresin <X) 

ATNCX/SQRC-X*X+1> > 

arccos(X) 

ATN<X/SQR< -X*X+ 1 > ) + 1C/2 

are sec(X) 

ATN < X/SQR < X*X—1> > 

arccosec <X> 

ATN<X/SQR<X*X-1 > > + 

<SGN<X>-1 >*1t/2 

arccotg<X> 

ATNCX) +1t/2 

sinh <X> 

< EXP<X>-EXP<-X)>/2 

cosh <X> 

< EXP(X)+ EXPC-X)>/2 

tgh <X) 

EXP < —X)/(EXP < X) + 

EXP<—X>> *2+1 

sech <X> 

2/< EXPCX)+EXP< —X>> 

cosech <X> 

2/< EXP<X> —EXP< —X>> 

cotgh(X) 

EXP< —X>/< EXP<X>- 

EXPC-X))*2+1 
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FUNZ I ONE 

EQUI RALENTE BASIC 

arcsinh(X) 

LOGCX+SQR<X*X+l>) 

arccosh<X> 

LOG<X+SQR<X*X—1> > 

are tgh <X) 

LOGC <1+X>/<1-X> >/2 

arcsech<X> 

LOG <SQRC-X*X+1> + l/X> 

arccosch<X> 

LOG<SGN(X)*SQR<X*X+ 


1/X> ) 

arccotgh<X> 

LOG<<X+1>/<X-l> >/2 
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APPENDICE L 


CONVERSIONI DEC./ESADEC./BIN. 


Nella tabella che segue sono riportati i numeri decimali da 0 a 
255 e i loro corrispondenti esadecimali. 


DEC. 

HEX. 

DEC. 

HEX. 

DEC. 

HEX. 

DEC. 

HEX 

e 

80 

32 

20 

64 

40 

96 

60 

1 

81 

33 

21 

65 

41 

97 

61 

2 

02 

34 

22 

66 

42 

98 

62 

3 

03 

35 

23 

67 

43 

99 

63 

4 

04 

36 

24 

68 

44 

100 

64 

5 

05 

37 

25 

69 

45 

101 

65 

6 

06 

38 

26 

70 

46 

102 

66 

7 

07 

39 

27 

71 

47 

103 

67 

8 

08 

40 

28 

72 

48 

104 

68 

9 

09 

41 

29 

73 

49 

105 

69 

10 

00 

42 

20 

74 

40 

106 

60 

11 

08 

43 

2B 

75 

4B 

107 

6B 

12 

0C 

44 

2C 

76 

4C 

108 

6C 

13 

OD 

45 

2D 

77 

4D 

109 

6D 

14 

0E 

46 

2E 

78 

4E 

110 

6E 

15 

0F 

47 

2F 

79 

4F 

111 

6F 

16 

10 

48 

30 

80 

50 

112 

70 

17 

11 

49 

31 

81 

51 

113 

71 

18 

12 

50 

32 

82 

52 

114 

72 

19 

13 

51 

33 

83 

53 

115 

73 

28 

14 

52 

34 

84 

54 

116 

74 

21 

15 

53 

35 

85 

55 

117 

75 

22 

16 

54 

36 

86 

56 

118 

76 

23 

17 

55 

37 

87 

57 

119 

77 

24 

18 

56 

38 

88 

58 

120 

78 

25 

19 

57 

39 

89 

59 

121 

79 


TABELLA L.1 Conversione dee. esadec. 
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26 

10 

58 

30 

90 

58 

122 

70 

27 

1B 

59 

3B 

91 

5B 

123 

7B 

28 

1C 

60 

3C 

92 

5C 

124 

7C 

29 

1D 

61 

3D 

93 

5D 

125 

7D 

30 

1E 

62 

3E 

94 

5E 

126 

7E 

31 

1F 

63 

3F 

95 

5F 

127 

7F 

DEC. 

HEX. 

DEC. 

HEX. 

DEC. 

HEX. 

DEC. 

HEX 

128 

80 

160 

00 

192 

C0 

224 

E0 

129 

81 

161 

01 

193 

CI 

225 

Ei 

130 

82 

162 

02 

194 

C2 

226 

E2 

131 

83 

163 

03 

195 

C3 

227 

E3 

132 

84 

164 

04 

196 

C4 

228 

E4 

133 

85 

165 

05 

197 

C5 

229 

E5 

134 

86 

166 

06 

198 

C6 

230 

E6 

135 

87 

167 

07 

199 

C7 

231 

E7 

136 

88 

168 

88 

200 

C8 

232 

E8 

137 

89 

169 

09 

201 

C9 

233 

E9 

138 

88 

170 

80 

202 

C0 

234 

E8 

139 

8B 

171 

0B 

203 

CB 

235 

EB 

140 

8C 

172 

0C 

204 

CC 

236 

EC 

141 

8D 

173 

0D 

205 

CD 

237 

ED 

142 

8E 

174 

0E 

266 

CE 

238 

EE 

143 

8F 

175 

0F 

207 

CF 

239 

EF 

144 

90 

176 

B0 

208 

D0 

240 

F0 

145 

91 

177 

B1 

209 

DI 

241 

FI 

146 

92 

178 

B2 

210 

D2 

242 

F2 

147 

93 

179 

B3 

211 

D3 

243 

F3 

148 

94 

180 

B4 

212 

D4 

244 

F 4 

149 

95 

181 

B5 

213 

D5 

245 

F5 

150 

96 

182 

B6 

214 

D6 

246 

F6 

151 

97 

183 

B7 

215 

D7 

247 

F7 

152 

98 

184 

B8 

216 

D8 

248 

F8 

153 

99 

185 

B9 

217 

D9 

249 

F9 

154 

90 

186 

B8 

218 

D0 

250 

F0 

155 

9B 

187 

BB 

219 

DB 

251 

FB 

156 

9C 

188 

BC 

220 

DC 

252 

FC 

157 

9D 

189 

BD 

221 

DD 

253 

FD 

158 

9E 

190 

BE 

222 

DE 

254 

FE 

159 

9F 

191 

BF 

223 

DF 

255 

FF 


TABELLA L.1 Conversione dee. esadec. (continuazione) 


448 



Segue il programma C0NV1 che stampa una tabellina contenente i 
numeri decimali da 0 a 15 e i corrispondenti numeri esadecimali e 
binari. 


i REM CONUi 
6 0PEN4, 4 : CMD4 

il DATAO,0000,1,0001,2,0010,3,0011,4,0100 
16 DATA5,0101,6,0110,7,Olii,8,1000,3,1001 
21 DATAA,1010,B,1011,C,1100,D,1101,E,1110,F,1111 
26 PRINT”DECIMALE ESADECIMALE BINARIO" 

31 PRINT 

36 FORK=0TO15 

41 READAS,B$:C$=STR$<K> 

46 C$=RIGHT$<" "+C$,2) 

51 PRINT" ";CS;" ";A$;" ";B$ 

56 NEXTK 

61 PRINTtt4:CL0SE4 


RISULTATI PROGRAMMA CONVI 


DECIMALE ESADECIMALE BINARIO 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


0 

1 

2 

3 

4 

5 

6 

7 

8 
3 
A 
B 
C 
D 
E 
F 


0000 

0001 

0010 

0011 

0100 

0101 

0110 

0111 

1000 

1001 

1010 

1011 

1100 

1101 

1110 

1111 
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Nel programma C0NV1 i numeri corrispondenti ai decimali, in 
esadeclmale e binario, sono ottenuti dal file interno di dati 
generato dalle frasi DATA delle linee 11, 16 e 21, nelle quali 
sono riportati a coppie il numero in esadecimale e il 
corrispondente in binario. 

Il COMMODORE PLUS-il dispone di due funzioni in BASIC, la DEC e la 
HEX$, che consentono di operare conversioni da esadecimale in 
decimale e viceversa per numeri esadecimal; di al massimo *1 cifre 
e per numeri decimali compresi tra 0 e 65535. 

Il programma C0NV2 che segue accetta come dato di ingresso una 
stringa esadecimale di al massimo M caratteri, e la converte nel 
numero decimale corrispondente. 

1 REM C0HV2 

10 PRIMT-UUSCRIUI UH NUMERO ESADECIMALE DI" 

15 PRINT"AL MASSIMO 4 CIFRE" 

20 INPUTNS 

25 IFLEN<N$)>4THEN10 
30 FORK=iTOLEN<N$) 

35 A$=MID$<N$,K,i) 

40 IFA$>="0"ANDA$<="9"ORA$>="A"ANDA$<="F”THEN50 
45 GOTO10 
50 HEXTK 

60 PRINTNS;" IH DECIMALE = ";DEC(N$) 

65 STOP 


Nel programma C0NV2 la stringa esadecimale da convertire viene 
controllata e accettata solo se e' di al massimo <1 caratteri e i 
caratteri sono cifre esadecimali, cioè' comprese negli intervalli 
0-9 e A-F. 

Il programma C0NV3 che segue accetta in ingresso un numero 
decimale compreso tra 0 e 65535 e lo converte nella stringa 
esadecimale corrispondente. 


1 REM C0NU3 

5 PRINT'UUSCRIUI UH NUMERO DECIMALE POSITIUO" 
10 PRINT"COMPRESO TRA 0 E 65535" 

15 INPUTN 

20 IFN<0ORN>65535THEH5 

25 PRINTHj" IH ESADECIMALE = ";HEX$(N> 

30 STOP 
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Il programma C0NV3 accetta in ingresso un numero positivo 
compreso tra 0 e 65535 e lo converte sempre in una stringa di 4 
caratteri esadecimali. 

Il programma C0NV4 che segue consente di convertire un numero 
decimale, compreso tra 0 e 255, in binario; dopo averlo 
convertito e stampato, viene effettuata la controprova, cioè' il 
numero binario viene riconvertito in decimale e stampato. In 
questo caso le conversioni vengono operate effettuando dei 
calcoli. 

i REM C0NU4 

5 PRI NT'tiUSCRIU I UN NUMERO DECIMALE POSITIVO" 

10 PRINT“COMPRESO TRA 0 E 255" 

15 INPUTN 

20 IFNC0ORN>255THEN5 
25 XS="":A=N 
30 EORK=7TO0STEP-1 

35 IFN>=2tKTHENX$=X$+ M i":N=N-2tK:G0T045 
40 XS=X$+"0" 

45 NEXTK 

50 PRINTA;" IN BINARIO = ";X$:PRINT 
55 A=0:F0RK=8T01STEP—1 
60 A$=MID$<X$,K,i) 

65 IFAS= ,, l"THENA=A*2t<8-K> 

70 NEXTK 

75 PRINTXSj" IH DECIMALE = “;A 
80 STOP 
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APPENDICE M 


I 4 PROGRAMMI RESIDENTI IN ROM 


Premendo il tasto FI e quindi il tasto RETURN, il COMMODORE 
PLUS-4 entra in un ambiente diverso da quello BASIC. Qui puoi 
usare i 4 programmi memorizzati su ROM che caratterizzano questo 
calcolatore. 

I 4 programmi sono: 

WORD PROCESSOR: un programma che ti permette di scrivere, 
memorizzare e stampare testi con grande facilita'. 

DATA BASE: programma che ti permette di memorizzare e gestire 
grandi quantità' di dati come quelli che compongono un'agenda 
telefonica, un listino prezzi o un inventario di magaz¬ 
zino. 

SPREAD SHEET: programma che ti permette di memorizzare grandi 
quantità' di dati numerici in un tabellone e di mostrarti in mo¬ 
do immediato le relazioni che li legano. 

GRAPHICS: permette di avere una visualizzazione grafica delle 
grandezze che sono contenute nel tabellone dello SPREAD SHEET. 

Puoi trovare per ogni calcolatore programmi di questo tipo, ma la 
potenza che ti offre il pacco di programmi del PLUS-4 consiste 
nel fatto che i dati gestiti da uno dei programmi possono essere 
passati ad un altro; ad esempio puoi usare una lista di indi¬ 
rizzi memorizzati col DATA BASE per scrivere le intestazioni di 
una lettera fatta con WORD PROCESSOR o inserire un grafico che 
visualizza informazioni memorizzate nel tabellone elettronico in 
una lettera. 

II calcolatore viene venduto con dettagliati ed esaurienti manua¬ 
li in italiano, per cui non abbiamo ritenuto opportuno appro¬ 
fondire ulteriormente l'argomento. 
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APPENDICE N 


SCHEMA ELETTRICO 


Segue lo schema elettrico del COMMODORE PLUS-^. 
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Questo libro vuole essere una guida alla conoscenza del Commo¬ 
dore Plus-4 e all’apprendimento della programmazione in linguag¬ 
gio BASIC e in linguaggio Assembler. 

Viene presentata l'implementazione del BASIC 3.5 disponibile sul 
Commodore Plus-4. Inoltre è illustrato il DOS residente sull’unità a 
floppy disk 1541 e viene insegnato l’uso completo della stampante 
grafica MPS-803. 

Lo studio dell’Assembler viene sviluppato appoggiandosi alle pos¬ 
sibilità offerte dal comando MONITOR del BASIC, ma viene affronta¬ 
to ancheil problema del linguaggio macchinadellaCPU7501 edel- 
la sua struttura hardware. 

Le spiegazioni teoriche sono sempre accompagnate da esempi 
commentati, e per questo il libro può essere utile anche ai princi¬ 
pianti. 

Particolare attenzione viene dedicata all'uso delle periferiche, 
compresa la gestione dei file su disco. La grafica è uno degli argo¬ 
menti più approfonditi, collegandola alle possibilità del processore 
video. 

Nei primi tre capitoli si ha una panoramica delle possibilità del 
Commodore Plus-4 e delle problematiche relative alia programma¬ 
zione, affrontando gli argomenti in modo rigoroso, ma a iivello ele¬ 
mentare. Nei capitoli seguenti gli argomenti vengono approfonditi, 
ma si cerca di rendere le spiegazioni abbastanza semplici. 

Il capitolo 4 tratta le periferiche: tastiera, video, cassetta e joistick. Il 
capitolo 5 presenta completamente la stampante grafica MPS-803 
e riporta diversi programmi per ottenere la copia del video testo e 
del video grafico. Il capitolo 6 tratta i file su disco, riportando tutte le 
informazioni necessarie per usare bene il DOS; inoltre sono pre¬ 
senti programmi commentati per gestire archivi di dati di tipo se- 






l’accento sulla parte hardware e mettendo in grado anche gli .... 
spedi di comprendere come è costruito il calcolatore. Il capitolo 8 
tratta del linguaggio macchina, dell’Assembler, dell’uso completo 
del comando MONITOR e del software residente. Il capitolo 9 ap¬ 
profondisce l’argomento della grafica, utilizzando anche il linguag¬ 
gio macchina. Nel capitolo 10 sono presenti alcuni programmi com¬ 
mentati. 

Completano il volume le appendici, che riportano: la scheda com¬ 
pleta del BASIC 3.5, le istruzioni Assembler, i codici e i numeri del 
sistema, i messaggi d’errore, la mappa e l’utilizzo della memoria, 
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elenco dei registri di I/O, il valore delle note, le funzioni matemati- 

ho Horiv/oto lo cnnt/Drcicni irò i cictomi rii ni imQn7ÌAno imo hrcn/o 


che derivate, le conversioni tra i sistemi di numerazione, una breve 
sintesi dei 4 programmi residenti in ROM e lo schema elettrico del 
calcolatore. 
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